如何解决在R中,如何在图的两个内部函数之间传递数据帧/小节,然后保存图?
我创建了一个外部函数来运行3个内部函数以进行数据预处理,然后绘制并保存它。
library(tidyverse)
library(glue)
gapminder <- read.csv("https://raw.githubusercontent.com/swcarpentry/r-novice-gapminder/gh-pages/_episodes_rmd/data/gapminder-FiveYearData.csv")
外部功能
fn_run_all <-function(bench_country = India,year_start = 1952,year_end = 2007){
year_start = year_start
year_end = year_end
# Function1 for PreProcess Benchmarked Country
fn_benchmark_country({{bench_country}})
# Function2 to PreProcess dates & pass df to function3 to plot
Plot_final <- fn_year_filter(gapminder_joined,year_start,year_end) %>%
# function 3 to plot
fn_create_plot(.,year_end,{{bench_country}})
# Saving plot
jpeg(file="gdp_benchmarked_FinalPlot.jpeg",width = 1400,height = 1800)
Plot_final
dev.off()
# Printing Plot
Plot_final
}
fn_run_all(India,1952,2002)
问题1
如果我没有将第一个函数gapminder_joined
的{{1}}的数据帧输出为fn_benchmark_country()
,那么函数2 global
会出错。
但是当我将function1的输出即fn_year_filter()
推到gapminder_joined
时,它就起作用了。
Global
Function1参考代码
Is it necessary to make it global even when I am returning it within the outer function or there is some other alternative way?
在上面的代码中,如果我取消注释第二行,那么它将起作用。
Function2参考代码
fn_benchmark_country <- function(bench_country = India){
bench_country = enquo(bench_country)
gapminder_benchmarked_wider <- gapminder %>%
select(country,year,gdpPercap) %>%
pivot_wider(names_from = country,values_from = gdpPercap) %>%
arrange(year) %>%
# map_dbl( ~{.x - India })
mutate(across(-1,~ . - !!bench_country))
# Reshaping back to Longer
gapminder_benchmarked_longer <- gapminder_benchmarked_wider %>%
pivot_longer(cols = !year,names_to = "country",values_to = "benchmarked")
# Joining tables
gapminder_joined <- left_join(x = gapminder,y = gapminder_benchmarked_longer,by = c("year","country"))
# converting to factor
gapminder_joined$country <- as.factor(gapminder_joined$country)
# gapminder_joined <<- gapminder_joined
return(gapminder_joined)
}
解决方法
请勿从函数内部更新变量。您采用的方法是正确的,因此无需使用<<-
,请保持fn_benchmark_country
不变。尝试将返回的数据框保存在函数中。
fn_run_all <-function(bench_country = India,year_start = 1952,year_end = 2007){
# Function1 for PreProcess Benchmarked Country
gapminder_joined <- fn_benchmark_country({{bench_country}})
# Function2 to PreProcess dates & pass df to function3 to plot
Plot_final <- fn_year_filter(gapminder_joined,year_start,year_end) %>%
# function 3 to plot
fn_create_plot(.,year_end,{{bench_country}})
#...rest of the code
#...
#...
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。