传递列名作为字符串填充ggvis

Question

ggvis将根据我传递的因子列自动对我的图进行着色。所以如果我的因子列被命名为“area”，我可以编写它并且它会完美地执行。

names = c("Bacilli", "Actinobacteria", "area") 
b_counts <- c(1,5,8,100,34,3) 
a_counts <- c(1,3,11,55,67,11) 
area <- c("Gut", "Skin", "Gut", "Gut", "Skin", "Oral") 
rel_data <- data.frame(b_counts, a_counts, area) 
names(rel_data) <- names 

library(ggvis) 
library(dplyr) 

rel_data %>% ggvis(x = input_select(names(rel_data[,-3]), map = as.name, label = "X Axis"), 
       y = input_select(names(rel_data[,-3]), map = as.name, label = "Y Axis")) %>% 
    filter(area %in% eval(input_checkboxgroup(unique(rel_data$area), selected = "Gut"))) %>% 
    layer_points(fill = ~area) ### section of interest 

但是，如果我想将字段的名称作为字符串传递，我无法使其工作。例如

region <- "area" 
layer_points(fill = ~region) 

我试过as.name，eval，quote等，但我似乎无法得到任何工作。有没有人有任何想法？

Answer 1

在properties and scales有一个提示：

layer_points(prop("fill", as.name(region)))