R 棒棒糖地块的镶嵌面包裹

我正在尝试使用一个facet wrap绘制多个棒棒糖图，如下面的第三个代码块/示例和图片所示

但是，我无法使代码示例正常工作。你能帮我看看哪里写得不对吗（如果有）

数据：

set.seed(1)
data <-as.data.frame(matrix( sample( 2:20 , 40 , replace=T) , ncol=10))
colnames(data) <- c("math" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )
data <-rbind(rep(20,10) , rep(0,10) , data)
rownames(data) <- c("-", "--", "John", "Angli", "Baptiste", "Alfred")

set.seed（1）
数据%
排列（V1）%>%
突变（rowname=因子（rowname，rowname））%>%
聚集（键=名称，值=标记，-1）
#重新编码
数据$name%ggplot（aes（x=rowname，y=mark））+
几何图形栏（stat=“identity”，fill=“#69b3a2”，宽度=0.6）+
coord_flip（）+
主题+
主题(
panel.grid.minor.y=元素_blank（），
panel.grid.major.y=元素_blank（），
axis.text=元素\文本（大小=48）
) +
ylim（0,20）+
ylab（“标记”）+
xlab（“”）+
面_包装（~name，ncol=4）

我得到以下错误：

顺序错误（V1）：找不到对象“V1”

---

链接页面上的前两个代码块依赖于两列tibble，因此我认为第一个向量自动命名为V1。但是我不清楚如何修复这个示例代码，因为列已经命名了。我希望这个问题是清楚的。

列名保持不变，因此那里没有

V1

，

V2

列。此外，您还可以将

gather

替换为

pivot\u longer

。尝试：

library(tidyverse)

data <- data %>% 
  slice(3:6) %>% 
  t()  %>%
  as.data.frame() %>%
  add_rownames() %>%
  mutate(rowname=factor(rowname, rowname)) %>% 
  pivot_longer(cols = -1, values_to = 'mark')



data %>% ggplot( aes(x=rowname, y=mark)) +
  geom_bar(stat="identity", fill="#69b3a2", width=0.6) +
  coord_flip() +
  #theme_ipsum() +
  theme(
    panel.grid.minor.y = element_blank(),
    panel.grid.major.y = element_blank()
  ) +
  ylim(0,20) +
  ylab("mark") +
  xlab("") +
  facet_wrap(~name, ncol=4)

库（tidyverse）
数据%
切片（3:6）%>%
t（）%>%
as.data.frame（）%>%
添加_rownames（）%>%
突变（rowname=因子（rowname，rowname））%>%
pivot_更长（cols=-1，value_to='mark'）
数据%>%ggplot（aes（x=rowname，y=mark））+
几何图形栏（stat=“identity”，fill=“#69b3a2”，宽度=0.6）+
coord_flip（）+
#主题+
主题(
panel.grid.minor.y=元素_blank（），
panel.grid.major.y=元素_blank（）
) +
ylim（0,20）+
ylab（“标记”）+
xlab（“”）+
面_包装（~name，ncol=4）

library(tidyverse)

data <- data %>% 
  slice(3:6) %>% 
  t()  %>%
  as.data.frame() %>%
  add_rownames() %>%
  mutate(rowname=factor(rowname, rowname)) %>% 
  pivot_longer(cols = -1, values_to = 'mark')



data %>% ggplot( aes(x=rowname, y=mark)) +
  geom_bar(stat="identity", fill="#69b3a2", width=0.6) +
  coord_flip() +
  #theme_ipsum() +
  theme(
    panel.grid.minor.y = element_blank(),
    panel.grid.major.y = element_blank()
  ) +
  ylim(0,20) +
  ylab("mark") +
  xlab("") +
  facet_wrap(~name, ncol=4)