ggvis集成到一个函数中

Question

我正在尝试创建一个输入货币的基本函数和函数 returns 一个 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()
}

这段代码只是returns一条直线。

我也试过 as.name() 无济于事

非常感谢！

全部解决，parse函数成功，感谢各位帮助！

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集成到一个函数中

ggvis integrated into a function

r

ggvis