傳遞列名作爲字符串填充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)))