#r #ggplot2 #pie-chart
Вопрос:
Я рисую круговую диаграмму, и иногда сектора слишком малы, чтобы соответствовать моим текстовым меткам (я помещаю туда значения).
- Как я могу переместить все метки ближе к внешним границам круга (там больше места)?
- Есть ли какой-нибудь способ переместить мою легенду наверх? Это выглядит немного странно в середине картинки.
- Может быть, еще какие-нибудь предложения по улучшению моей визуализации?
Вот мой пример кода:
df <- structure(list(group = c("Other", "Pool", "VNC", "File", "EtwB",
"Thre", "HTab", "Vkmc", "Ntfx", "MmCa"), value = c(20.32, 6.16,
4.03, 2.2, 2.05, 2.01, 1.72, 1.7, 1.56, 1.27), FileName = c("",
NA, "C:\Windows\System32\Drivers\netvsc.sys", NA, NA, NA,
NA, "C:\Windows\System32\Drivers\vmbkmcl.sys", NA, NA), Description = c("",
"<unknown> (Pool tables, etc.)", "Virtual NDIS Miniport", "<unknown> (File objects)",
"nt!etw (Etw Buffer)", "nt!ps (Thread objects)", "<unknown> (Hash Table pool)",
"Hyper-V VMBus KMCL", NA, "nt!mm (Mm control areas for mapped files)"
), Legend = c("Other", "Pool - <unknown> (Pool tables, etc.)",
"VNC - Virtual NDIS Miniport - C:\Windows\System32\Drivers\netvsc.sys",
"File - <unknown> (File objects)", "EtwB - nt!etw (Etw Buffer)",
"Thre - nt!ps (Thread objects)", "HTab - <unknown> (Hash Table pool)",
"Vkmc - Hyper-V VMBus KMCL - C:\Windows\System32\Drivers\vmbkmcl.sys",
"Ntfx", "MmCa - nt!mm (Mm control areas for mapped files)")), row.names = c(NA,
-10L), class = c("tbl_df", "tbl", "data.frame"))
df2 <- structure(list(group = c("Other", "Pool", "VNC", "File", "EtwB",
"Thre", "HTab", "Vkmc", "Ntfx", "MmCa"), value = c(20.32, 6.16,
4.03, 2.2, 2.05, 2.01, 1.72, 1.7, 1.56, 1.27), Legend = c("Other",
"Pool - <unknown> (Pool tables, etc.)", "VNC - Virtual NDIS Miniport - C:\Windows\System32\Drivers\netvsc.sys",
"File - <unknown> (File objects)", "EtwB - nt!etw (Etw Buffer)",
"Thre - nt!ps (Thread objects)", "HTab - <unknown> (Hash Table pool)",
"Vkmc - Hyper-V VMBus KMCL - C:\Windows\System32\Drivers\vmbkmcl.sys",
"Ntfx", "MmCa - nt!mm (Mm control areas for mapped files)"),
csum = c(43.02, 22.7, 16.54, 12.51, 10.31, 8.26, 6.25, 4.53,
2.83, 1.27), pos = c(32.86, 19.62, 14.525, 11.41, 9.285,
7.255, 5.39, 3.68, 2.05, 0.635)), row.names = c(NA, -10L), class = c("tbl_df",
"tbl", "data.frame"))
library(ggplot2)
library(tidyverse)
library(RColorBrewer)
nb.cols <- 10
mycolors <- colorRampPalette( brewer.pal(8, "Dark2"), interpolate='spline' )(nb.cols)
# Pie
font_size <- 20
plot_to_save <-
ggplot(df, aes(x = "", y = value, fill = fct_inorder(Legend)))
geom_col(width = 1, color = 1, alpha= 0.8)
geom_text(aes(label = value), size=4,
position = position_stack(vjust = 0.5), alpha = 1, color = "black")
coord_polar(theta = "y")
guides(fill = guide_legend(title = "Driver"))
scale_y_continuous(breaks = df2$pos, labels = df$group)
theme(axis.ticks = element_blank(),
axis.title = element_blank(),
axis.text = element_text(size = font_size-4),
# legend.position = "none", # Removes the legend
panel.background = element_rect(fill = "white"))
theme(text = element_text(family = "Segoe UI", size = font_size))
#theme(legend.position = "right")
scale_fill_manual(values = mycolors)
ggtitle("Memory NonPagedUsed, MB")
ggsave(
file = "c:\temp\pie_chart.png",
plot = plot_to_save,
width = 16,
height = 8,
dpi = 150,
units = "in",
type = "cairo-png"
)
Ответ №1:
Вы можете добиться этого x , установив параметр в geom_text(aes()) .
Для того, что вы хотите сделать, я бы рекомендовал, например:
geom_text(aes(x = 1.4, label = value), size=4,
position = position_stack(vjust = 0.5), alpha = 1, color = "black")