R语言在函数内部传递ggplot2标题

kh212irz 于 2023-01-28 发布在其他

关注(0)|答案(3)|浏览(138)

我需要指定一个由ggplot图表所选列决定的标题。我需要能够为数据框中的几个列制作图表。

cola <- c(11, 13, 17, 12, 34)
colb <- c(23, 41, 32, 58, 26)
colc <- c(1, 2, 3, 4, 5)
dfb <- data.frame(cola, colb, colc)

library(ggplot2)
graph_func <- function(col) {
  dfb %>% ggplot(aes(x=colc, y=!!col)) +
    geom_point() +
    ggtitle(title = !!col)
} 

graph_func(quo(colb))

我希望标题为“colb”，但我收到一条错误消息：

> Error in ggtitle(caption = !!col) : unused argument (caption = !!col)

来源：https://stackoverflow.com/questions/75215062/pass-the-ggplot2-title-inside-a-function

3条答案

按热度按时间

tcomlyy61#

您不需要将参数括起来。请改用！！enquo方括号{{ }}：

graph_func <- function(col) {
  dfb %>% ggplot(aes(x=colc, y= {{ col }})) +
    geom_point() +
    ggtitle(enquo(col))
} 

graph_func(colb)

赞(0）回复(0）举报 2023-01-28

xzlaal3s2#

我们可以使用deparse(substitute(var)：

graph_func <- function(col) {
  dfb %>% ggplot(aes(x = colc, y = !!col)) +
    geom_point() +
    ggtitle(deparse(substitute(col)))
}

graph_func(colb)

赞(0）回复(0）举报 2023-01-28

1hdlvixo3#

我们可以用

library(ggplot2)
 graph_func <- function(col) {
  col <- rlang::as_string(rlang::ensym(col))
   dfb %>% ggplot(aes(x=colc, y=.data[[col]])) +
     geom_point() +
     ggtitle(col)
 }
graph_func(colb)

赞(0）回复(0）举报 2023-01-28

我来回答

R语言在函数内部传递ggplot2标题

3条答案

相关问题

热门标签

最新问答

R语言 在函数内部传递ggplot2标题

3条答案

相关问题

热门标签

最新问答

R语言在函数内部传递ggplot2标题