R 带有ggplot2的饼图，统计条目的出现次数
我希望能够用ggplot2在R中制作一个“饼图”，但计算某个数据出现的次数 在我的示例中，我有一个Excel，从中提取列和列中显示的值，例如，名为“规程”的列具有以下值：R 带有ggplot2的饼图，统计条目的出现次数,r,ggplot2,plot,pie-chart,geom-text,R,Ggplot2,Plot,Pie Chart,Geom Text,我希望能够用ggplot2在R中制作一个“饼图”，但计算某个数据出现的次数 在我的示例中，我有一个Excel，从中提取列和列中显示的值，例如，名为“规程”的列具有以下值： discipline1, discipline2, discipline3, discipline1, discipline1, discipline2, discipline2, discipline2, discipline2, discipline2, discipline3, discipline3. 因此，我要绘
discipline1, discipline2, discipline3, discipline1, discipline1, discipline2,
discipline2, discipline2, discipline2, discipline2, discipline3, discipline3.
discipline1, discipline2, discipline3
stat=“count”ggplot(df, aes(x = "", y = as.factor(df[,discipline]),
fill = as.factor(df[,discipline]))) +
geom_bar(width = 1, stat = "identity", color = "white") +
coord_polar("y", start = 0)+
geom_text(aes(y = as.factor(df[,discipline]),
label = as.factor(df[,discipline])), color = "white")+
scale_fill_manual(values =c("#0073C2FF", "#EFC000FF", "#868686FF"))+
theme_void()
这回答了你的问题吗
library(tidyverse)
# sample data
df <- tibble(discipline = paste0("discipline", sample(1:3, 20, replace = T))) %>%
count(discipline)
# creating a pie chart
ggplot(df, aes(x="", y= n , fill=discipline))+
geom_bar(width = 1, stat = "identity") + coord_polar("y", start=0)
库（tidyverse）
#样本数据
df%
伯爵（纪律）
#创建饼图
ggplot（df，aes（x=”，y=n，fill=纪律））+
几何图形条（宽度=1，stat=“identity”）+coord\u polar（“y”，起点=0）
几何图形条后添加坐标（theta='y'）
：
库（ggplot2）
ggplot（数据=as.data.frame（规程），
不良事件（x=因子（1），填充=因子（学科））+
几何图形条（stat=“count”）+
连续刻度（断开=顺序（0,12,3），标签=c（“0”、“25%””、“50%””、“75%””、“100%”）+
极坐标（theta='y'）+
主题（axis.text.y=element_blank（），
axis.title.y=元素_blank（），
axis.ticks.y=元素_blank（），
axis.title.x=元素_blank（））+
实验室（fill=“学科”）
更新：
如果要添加带有geom_text
的标签，我建议使用不同的方法，而不是stat='count'
；见下文：
库（dplyr）
图书馆（GG2）
图书馆（比例尺）
数据帧（专业）%>%
分组（学科）%>%
突变（cnt=n（），
pct=百分比（cnt/nrow（.），精度=1））%>%
唯一%>%解组%>%
突变（位置=总和（cnt）-cnt/2）%>%
ggplot（数据=。）。，
aes（x=系数（1），重量=碳纳米管，填充=系数（学科））+
几何图形条（position=“stack”）+
连续刻度（断开=顺序（0，长度（专业），长度（专业）/4），
标签=c（“0”、“25%”、“50%”、“75%”、“100%”）+
极坐标（theta='y'）+
几何图形文本（aes（x=1.1，y=place，label=pct））+
主题（axis.text.y=element_blank（），
axis.title.y=元素_blank（），
axis.ticks.y=元素_blank（），
axis.title.x=元素_blank（））+
实验室（fill=“学科”）
数据：
纪律第一条评论对我来说并不完全有效
我写道：
ggplot(df,aes(x= factor(1), fill= factor(df[,discipline])))+
geom_bar(stat="count")+
scale_y_continuous(breaks = seq(0,12,3), labels = c("0", "25%", "50%", "75%", "100%")) +
coord_polar(theta='y') +
theme(axis.text.y = element_blank(),
axis.title.y = element_blank(),
axis.ticks.y = element_blank(),
axis.title.x = element_blank()) +
labs(fill = "Discipline")
我已获得：
其中，“df”是通过读取csv获得的数据帧，系数（df[，规程]）为：
你能告诉我密码有什么问题吗？再次感谢。欢迎来到Stack Overflow！你应该提供一份报告。详细阅读该链接，以便提供数据集示例和到目前为止所拥有的内容（我猜您在ggplot
中有一个饼图代码不起作用，您应该共享该代码）。干杯。跟随@M的好建议。。。如果我是你，我会将你的数据子集保存为csv
文件（或类似格式的测试数据集），然后将其粘贴到你主要问题的代码块中，以便其他人可以从中构建答案。也就是说，当使用stat=“identity”
时，您只需在手动计算计数即可。从我的头顶上。。。我相信df.count=as.data.frame（table（df））
中使用的table
函数可以为您提供所需的格式。不过，这只是一个简单的猜测……谢谢你的支持。它帮助我更好地理解你的问题。我们通常需要一个与名为dput
的函数共享的示例数据集（我共享的上一个链接讨论了它）。但在这里，我可以复制你的文本作为数据。请看下面我的答案，希望能有所帮助。我将在我的答案下面添加一条关于您的数据的注释。对于您的数据，您可能需要执行此操作df%>%select（规程）
，而不是我的答案中的data.frame（规程）
。然而，我分享了我在回答中使用的数据，以强调分享一个可复制示例的重要性。干杯
ggplot(df,aes(x= factor(1), fill= factor(df[,discipline])))+
geom_bar(stat="count")+
scale_y_continuous(breaks = seq(0,12,3), labels = c("0", "25%", "50%", "75%", "100%")) +
coord_polar(theta='y') +
theme(axis.text.y = element_blank(),
axis.title.y = element_blank(),
axis.ticks.y = element_blank(),
axis.title.x = element_blank()) +
labs(fill = "Discipline")
[1] Firmware Container Management
[4] Management IT Management
[7] Management Firmware Firmware
[10] Factory Factory Factory
[13] Factory Factory Factory
[16] Management Management Management
[19] Electrical Electrical Electrical
[22] Factory Factory Electrical
[25] Container Mechanical Electrical
[28] Assurance Management Management
[31] Mechanical Mechanical Mechanical
[34] Mechanical Mechanical Mechanical
[37] Lab Electrical Electrical
[40] Electrical Assurance Container
[43] Electrical Assurance Management
[46] Management Mechanical Mechanical
[49] Factory Mechanical Mechanical
[52] Mechanical Mechanical Mechanical
[55] Mechanical Mechanical Mechanical
[58] Mechanical Mechanical Electrical
[61] Electrical Electrical Factory
[64] Factory Electrical Electrical
[67] Lab Electrical Electrical
[70] Electrical Management Electrical
[73] Assurance Firmware Firmware
[76] Electrical Electrical Electrical
[79] Electrical Electrical Electrical
[82] Electrical Electrical Electrical
[85] Electrical Electrical Electrical
[88] Electrical Electrical Electrical
[91] Electrical Electrical Electrical
[94] Electrical Factory Factory
[97] Electrical Electrical Electrical
[100] Electrical Electrical Electrical
[103] Electrical Electrical Electrical
[106] Electrical Electrical Electrical
[109] Electrical Electrical Electrical
[112] Electrical Electrical Electrical
[115] Electrical Electrical Factory
[118] Electrical Electrical Electrical
[121] Electrical Electrical Electrical
[124] Electrical Management Management
[127] Firmware Electrical Management
[130] Firmware Electrical
[133] Software Assurance
[136] Assurance Assurance Firmware
[139] Firmware Assurance Assurance
[142] Firmware Firmware Firmware
[145] Firmware Container Container
[148] Firmware Firmware Firmware
[151] Firmware Firmware Firmware
[154] Firmware Firmware Firmware
[157] Firmware Firmware Firmware
[160] Firmware Firmware Firmware
[163] Firmware Firmware Firmware
[166] Firmware Firmware Firmware
[169] Firmware Firmware Firmware
[172] Firmware Firmware Firmware
[175] Firmware Firmware Firmware
[178] Firmware IT Management
[181] Management Software
[184]
[187]
[190] Mechanical
[193] Assurance Assurance Assurance
[196] Assurance Assurance Assurance
[199] Assurance Assurance
[202] Assurance Assurance Assurance
[205] Assurance Assurance Assurance
[208] Assurance Assurance Assurance
[211] Assurance Assurance Assurance
[214] Assurance Assurance Assurance
[217] Assurance Assurance Assurance
[220] Assurance Assurance
[223] IT IT IT
[226] Management Management Management
[229] Mechanical Management Management
[232] Mechanical Electrical
[235] Mechanical Mechanical Mechanical
[238] Mechanical Mechanical
[241] Management
[244] Management Management
[247] Electrical Electrical Electrical
[250] Mechanical Mechanical Management
[253] Container Electrical Container
[256] Container Container Container
[259] Container Container Container
[262] Electrical Electrical Electrical
[265] Electrical Electrical Electrical
[268] Electrical Firmware Firmware
[271] Firmware Firmware Firmware
[274] Firmware Mechanical Mechanical
[277] Container Assurance Assurance
[280] Assurance Assurance Assurance
[283] Container Management
[286] Container Container Container
[289] Container Container Management
[292] Management Electrical Firmware
[295] Factory Factory Mechanical
[298] Management Management
[301] Electrical Electrical Electrical
[304] Electrical Electrical Electrical
[307] Management Management
[310] Management Management Management
[313] Management Management Assurance
[316] Assurance Assurance Research
[319] Research Management Management
[322] Firmware Electrical Management
[325] Firmware Electrical Management
[328] Management Firmware Electrical
[331] Mechanical Management Management
[334] Management Management Management
[337] Mechanical Firmware Management
[340] Mechanical Firmware Electrical
[343] Management Management Management
[346] Mechanical Electrical Electrical
[349] Management Mechanical Firmware
[352] Electrical Management
[355] Mechanical Electrical Management
[358] Firmware
[361] Mechanical Mechanical Mechanical
[364] Mechanical Mechanical Container
[367] Management Container Container
[370] Management Electrical Electrical
[373] Electrical Electrical Electrical
[376] Electrical Electrical Electrical
[379] Electrical Electrical Firmware
[382] Firmware Firmware Firmware
[385] Firmware Management Mechanical
[388] Mechanical Mechanical Management
[391] Assurance Assurance
[394] Assurance Assurance Assurance
[397] Assurance Firmware Electrical
[400] Quality Quality
[403] Quality Quality Quality
[406] Quality Firmware Firmware
[409] Assurance Factory
[412] Software IT Lab
[415] IT
[418] IT
[421] IT
[424] Assurance Assurance
[427] Firmware Firmware
[430] Software Quality Electrical
[433]
[436]
[439] Assurance Firmware Firmware
[442] Mechanical Mechanical SCM
[445] IT Management
[448] Management Management Management
[451] Factory Assurance IT
[454]
[457] Firmware Assurance
[460] Assurance Firmware Assurance
[463] Mechanical Mechanical
[466] Mechanical IT IT
[469] Assurance Assurance Assurance
[472] Mechanical Assurance
[475]
[478] Electrical Mechanical
[481] Mechanical Mechanical Mechanical
[484] Mechanical Firmware
[487] Assurance Assurance Assurance
[490] Firmware Mechanical
[493] Firmware Assurance Management
[496] Management Management Management
[499] Management Assurance Management
[502] Quality Assurance Management
[505] Assurance Management Management
[508] Management
[511] Electrical Firmware
[514] Mechanical Assurance Electrical
[517] Electrical Electrical Electrical
[520] Electrical Electrical Electrical
[523] Electrical Electrical Electrical
[526] Electrical Electrical Electrical
[529] Electrical Electrical Electrical
[532] Electrical Firmware Firmware
[535] Firmware Factory Firmware
[538] Firmware Firmware Firmware
[541] Firmware Firmware Firmware
[544] Firmware Firmware Firmware
[547] Firmware Firmware Firmware
[550] Mechanical Mechanical Mechanical
[553] Mechanical Mechanical Mechanical
[556] Mechanical Mechanical Assurance
[559] Assurance Assurance Assurance
[562] Assurance Assurance Assurance
[565] Assurance Assurance Assurance
[568] Assurance Management Assurance
[571] Assurance Assurance Factory
[574] IT IT IT
[577] IT IT Lab
[580] Management Electrical Electrical
[583] Mechanical Firmware
[586] Administration Mechanical Electrical
[589] Firmware Mechanical AI
[592] Lab
16 Levels: Administration AI ... Software