Question

我正在尝试创建一个输入货币的基本函数，该函数返回一个ggvis线图，但由于引号出现问题

当前代码：

ggcurr<-function(curr="AUD"){
    fx<-read.csv("rates.csv")
    fx$date<-as.character(fx$date)
    fx$date<-as.POSIXct(fx$date)
    gginput<-noquote(paste("~",curr,sep=""))

    fx%>%ggvis(~date,gginput)%>%
    layer_lines()
}

此代码只返回一条直线。

我也试过as.name（）无效

非常感谢！

全部解决，解析功能起作用，谢谢那些帮助过的人！

Answer 1

除了您使用parse找到的解决方案之外，还可以使用 ggvis 中的prop函数进行处理。

例如，如果你想采用这个简单的折线图

mtcars %>% ggvis(~mpg, ~wt) %>% layer_lines()

将y变量wt作为字符串给出，就像你在函数中所做的一样，它看起来像这样：

curr = "wt"
mtcars %>% ggvis(~mpg, prop("y", as.name(curr))) %>%
    layer_lines()

ggvis集成到一个函数中

1 个答案: