如何解决在函数中传递变量名,并使用它们在R中创建动态图和标签
(我是R的新手)。
我创建了一个具有3个内部函数的外部函数,用于预处理数据和绘图。
问题,我面临的是动态使用国家/地区名称-在y axis
上传递它们,并在labs for titles/subtitles
内部使用它们。
在问题区域下方添加快照(当我使用静态国家/地区名称时,此功能有效)
但是,当我使用国家名称参数(即bench_country
之类的{bench_country}
或!!bench_country
或!!enquo(bench_country)
时,则无效)。
在问题区域下方添加快照(不适用于参数bench_country
=印度)
我将{}
用于其他有效的参数,但是{bench_country}
在大多数地方都引起了问题
在下面添加代码以复制问题:
library(tidyverse)
library(glue)
library(scales)
gapminder <- read.csv("https://raw.githubusercontent.com/swcarpentry/r-novice-gapminder/gh-pages/_episodes_rmd/data/gapminder-FiveYearData.csv")
gapminder <- gapminder %>% mutate_if(is.character,as.factor)
################ fn_benchmark_country ################
fn_benchmark_country_last <-
function(bench_country = India){
bench_country = enquo(bench_country) # <======================================= enquo used
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
# (this pushes it to Global evrn)
return(gapminder_joined)
}
################ ----------------------------- ################
################ fn_year_filter ################
# filtering years
fn_year_filter_last <-
function(gapminder_joined,year_start,year_end){
gapminder_joined %>%
filter(year %in% c(year_start,year_end)) %>%
arrange(country,year) %>%
group_by(country) %>%
mutate(benchmark_diff = benchmarked[2] - benchmarked[1],max_pop = max(pop)) %>%
ungroup() %>%
arrange(benchmark_diff) %>%
filter(max_pop > 30000000) %>%
mutate(country = droplevels(country)) %>%
select(country,continent,benchmarked,benchmark_diff) %>%
# ---
mutate(country = fct_inorder(country)) %>%
group_by(country) %>%
mutate(benchmarked_end = benchmarked[2],benchmarked_start = benchmarked[1] ) %>%
ungroup()
}
################ ----------------------------- ################
################ fn_create_plot ################
fn_create_plot_last <-
function(df,year_end,bench_country ){
# plotting
ggplot(df) +
geom_segment(aes(x = benchmarked_start,xend = benchmarked_end,y = country,yend = country,col = continent),alpha = 0.5,size = 7) +
geom_point(aes(x = benchmarked,size = 9,alpha = .8) +
geom_text(aes(x = benchmarked_start + 8,label = paste(round(benchmarked_start))),col = "grey50",hjust = "right") +
geom_text(aes(x = benchmarked_end - 4.0,label = round(benchmarked_end)),hjust = "left") +
# scale_x_continuous(limits = c(20,85)) +
scale_color_brewer(palette = "Pastel2") +
labs(title = glue("Countries GdpPerCap at {year_start} & {year_end})"),subtitle = "Meaning Difference of gdpPerCap of countries taken wrt India \n(Benchmarked India in blue line) \nFor Countries with pop > 30000000 \n(Chart created by ViSa)",col = "Continent",x = glue("GdpPerCap Difference at {year_start} & {year_end} (w.r.t India)") ) +
# Adding benchmark line
geom_vline(xintercept = 0,col = "blue",alpha = 0.3) +
geom_label( label="India- as Benchamrked line",x=8000,y= !!bench_country,# {bench_country}
label.padding = unit(0.35,"lines"),# Rectangle size around label
label.size = 0.15,color = "black") +
# background & theme settings
theme_classic() +
theme(legend.position = "top",axis.line = element_blank(),# axis.text = element_blank()
axis.ticks = element_blank()
) +
# Adding $ to the axis (from scales lib) <=========================
scale_x_continuous(labels = label_dollar())
}
################ ----------------------------- ################
################ Calling functions ################
fn_run_all_last <-function(bench_country = India,year_start = 1952,year_end = 2007){
year_start = year_start
year_end = year_end
# Function1 for PreProcess Benchmarked Country
gapminder_joined <- fn_benchmark_country_last({{bench_country}})
# Function2 to PreProcess dates & pass df to function3 to plot
Plot_last <- fn_year_filter_last(gapminder_joined,year_end) %>%
fn_create_plot_last(.,{{bench_country}})
# Pusing plot object to global
Plot_last <<- Plot_last
# Printing Plot
Plot_last
}
fn_run_all_last(India,1952,2007)
解决方法
要使代码正常工作,请在// Setup the clips
String transitionName = getIntent().getStringExtra(EXTRA_TRANSITION_NAME);
Rect clipRect = getIntent().getParcelableExtra(EXTRA_CLIP_RECT);
setEnterSharedElementCallback(new SharedElementCallback() {
@Override
public void onSharedElementStart(List<String> sharedElementNames,List<View> sharedElements,List<View> sharedElementSnapshots) {
for (int i = 0; i < sharedElementNames.size(); i++) {
if (Objects.equals(transitionName,sharedElementNames.get(i))) {
View view = sharedElements.get(i);
view.setClipBounds(clipRect);
}
}
super.onSharedElementStart(sharedElementNames,sharedElements,sharedElementSnapshots);
}
@Override
public void onSharedElementEnd(List<String> sharedElementNames,sharedElementNames.get(i))) {
View view = sharedElements.get(i);
view.setClipBounds(null);
}
}
super.onSharedElementEnd(sharedElementNames,sharedElementSnapshots);
}
});
中使用rlang::as_label(enquo(bench_country))
而不是geom_label
或您尝试过的其他选项。当!!bench_country
用引号引起来时,enquo
会将自变量或表达式转换为可以用作标签的字符串。
通过此更改,我得到:
https://github.com/me-abhinav/shared-element-overlap-demo
编辑供参考,此处是绘图功能的完整代码。我还调整了代码,使标题和轴标签变为“动态”。为避免重复代码,我在函数的开头添加了新变量,将国家标签指定为字符:
rlang::as_label
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。