我想使用一条if语句来更改ggploy中y美学的焦点:
ggplot(diamonds, aes(x = cut, y = ifelse(TRUE, sym("clarity"), sym("price")))) +
geom_col(position = "dodge")
但它给了我以下几点:
不知道如何为文字对象自动拾取比例.默认为连续.geom_col()中的错误:！计算美学时的问题.第1层出现ℹ错误.由compute_aesthetics()中的错误引起:！美学不是有效的数据列.✖以下美观是无效的:✖y = ifelse(TRUE, sym("clarity"), sym("price"))ℹ您是输入了错误的数据列名，还是忘记添加after_stat()？
目前还不清楚您为什么要在这里使用sym.如果您将该部分go 掉，则可以使用以下两个选项之一
ggplot(diamonds, aes(x = cut, y = ifelse(TRUE, clarity, price))) +
geom_col(position = "dodge")
# or
ggplot(diamonds, aes(x = cut, y = if(TRUE) clarity else price)) +
geom_col(position = "dodge")
问题是sym("clarity")并不完全等同于clarity.前者需要经过判断才能成为后者.因为aes()使用了非标准的判断.您不能直接调用类似于
ggplot(diamonds, aes(x = cut, y = sym("clarity"))) +
geom_col(position = "dodge")
相反，您需要将值注入到!!的调用中
ggplot(diamonds, aes(x = cut, y = !!sym("clarity"))) +
geom_col(position = "dodge")
因此，我想如果您真的想使用sym，您只需将该值注入到表达式中
ggplot(diamonds, aes(x = cut, y = !!ifelse(TRUE, sym("clarity"), sym("price")))) +
geom_col(position = "dodge")
请注意，这不适用于dplyr的更谨慎的dplyr::if_else，因为通常你不做一个符号向量.由于您不使用向量或值，而只是使用符号名称，因此最好使用if而不是ifelse，因为这更多地是关于控制流而不是转换向量.
ggplot(diamonds, aes(x = cut, y = !!(if(TRUE) sym("clarity") else sym("price")))) +
geom_col(position = "dodge")