根据用户指定的组分组数据

Question

我有一个闪亮的应用程序接受用户输入，其中x和y变量可以绘制，并且还能够根据用户输入过滤它。

我希望能够做的是根据用户指定的组对数据进行分组（样本中仅列出了物种，但我的实际代码将使用许多不同的输入进行分组，具有多个= FALSE），并调整数据，使其取每个唯一用户指定组的平均值并绘制结果。因此，在此示例中，仅显示3个数据点，一个用于虹膜数据集中的每个物种。具体使用假设的用户输入x = Petal.Length和y = Petal.Width的setosa种类，数据点将绘制在x = setosa的平均值Petal.Lengths和y = setosa Petal.Widths的平均值。我使用基本的R plot函数运行它，这就是我希望它在ggvis中的结果：

这是通过以下代码在单独的脚本中完成的：

assets/active_admin.js

正如我现在所知，当我尝试通过每个x和y变量的平均值对物种数据进行分组时，应用程序崩溃。如果它是独立的话，else部分按预期工作。

alldata <- as.data.frame(iris)


splitDataX <- split(alldata$`Petal.Length`, alldata$`Species`, drop = FALSE)
meanXvar <- lapply(splitDataX, mean)

splitDataY <- split(alldata$`Petal.Width`, alldata$`Species`, drop = FALSE)
meanYvar <- lapply(splitDataY, mean)

plot(meanXvar, meanYvar)