玩具数据：

（除了 Value 和 Count ，我添加了一个分类变量 Group ）

(besides Value and Count, I add a categorical variable Group)

set.seed(12345)
df <- data.frame(Value = sample(1:100, 100, replace = T),
                 Count = sample(1:10, 100, replace = T),
                 Group = sample(c("A", "B", "C"), 100, replace = T),
                 stringsAsFactors = F)

使用 purrr :: pmap 和 purrr :: reduce 操纵数据框：

library(purrr)
data <- pmap(df, function(Value, Count, Group){
  data.frame(x = rep(Value, Count),
             y = rep(Group, Count))
}) %>% reduce(rbind)

boxplot(x ~ y, data = data)