我是新的R,必须创建一个像下面所示的情节。从Ogai等人那里得到的数字。(收集皮肤微生物样本的技术比较:擦拭与剥离带,前微生物醇。2018年;9:2362)我想以类似的方式展示在不同样本的皮肤拭子上发现的培养菌。
有人能指点我创建这个情节的函数吗?
发布于 2021-07-11 18:09:02
这种情节叫做华夫饼图。您可以使用ggplot2
构建一个
library(ggplot2)
set.seed(1024)
df <- data.frame(category = rep(c("Swab", "Tape"), each = 7*11),
ID = rep(1:7, 11),
Name = rep(c("Staphy", "Cory", "Propioni", "Lacto", "Micro",
"Enteroba", "Bifido", "Bacill", "Acine", "Enteroco",
"Staphy aur"), each=7),
detection = sample(c(TRUE, FALSE), 7*11, replace = TRUE))
df
ggplot(df, aes(x = ID, y = Name, fill = detection)) +
geom_tile(color = "black", size = 0.5) +
scale_x_continuous() +
scale_y_discrete() +
scale_fill_brewer(palette = "Set1") +
labs(title="Detection in cultures") +
facet_wrap(~ category) +
theme(plot.title = element_text(size = rel(1.2)))
这给了你
您的数据必须以正确的格式使用ggplot2
。仔细看看我的样本数据。
https://stackoverflow.com/questions/68338632
复制相似问题