有没有办法动态建立x轴变量

Question

设置日期框架

 a <- c(5, 10, 15, 20)
 b <- c(50, 100, 150, 200)
 c <- c(150, 200, 250, 300)
 d <- c("A", "B", "C", "D")
 df <- data.frame(a, b, c, d)
 names(df) <- c("XData1", "XData2", "XData3", "YData")
 df
  XData1 XData2 XData3 YData
1      5     50    150     A
2     10    100    200     B
3     15    150    250     C
4     20    200    300     D

使用晶格库创建条形图

barchart(YData ~ XData1, data=df)

使用创建第二个更复杂的条形图

barchart(YData ~ XData1+XData2+XData3, data=df, stack=TRUE)

现在的问题是，如何使用函数创建条形图。

通过调用如下函数创建第一个图表：

CreateBarChart(df, c('XData1'), c('YData')) 

和第二个图表通过调用如下函数：

CreateBarChart(df, c('XData1','XData2','XData3'), c('YData'))

在创建条形图的功能中我该怎么做？那是我不明白的。我需要在变量中动态构建XData1+XData2+XData3字符串，并在条形图中使用它。

原始问题

我有一组数据，其中包括要包含在图中的不同数量的列。简单的情况下，命令如下所示：

barchart(my_data[, ycol] ~ my_data[, xcol])

在更复杂的情况下，命令如下所示：

barchart(my_data[, ycol] ~ my_data[, xcol][[1]]+my_data[, xcol][[2]]+my_data[, xcol][[3]])

问题在于xcol变量的数量可能会有所不同。

我想基于my_data[, xcol][[1]]+my_data[, xcol][[2]]+my_data[, xcol][[3]]动态地构建命令的length(xcol)部分。

任何帮助将不胜感激。

Answer 1

您构建字符串并转换为公式。然后，barchart可以获取该数据和数据：

CreateBarChart=function(Data,YVAR,XVAR){
FORMULA = as.formula(paste(YVAR,"~",paste(XVAR,collapse="+")))
barchart(FORMULA,data=Data)
} 

我们测试：

CreateBarChart(df,'YData','XData1')

EIST

CreateBarChart(df,'YData',c('XData1','XData2'))