时间戳

首页 > 解决方案 > 将文本移近饼图的边框

r - 将文本移近饼图的边框

问题描述

我正在绘制饼图，有时扇区太小而无法容纳我的文本标签（我将值放在那里）。

  1. 如何将所有标签移近圆圈的外边界（那里有更多空间）？
  2. 有什么办法可以让我的传奇上移吗？图片中间有点奇怪。
  3. 也许有更多建议来改善我的可视化？

我的示例图表

这是我的代码示例：



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"
)

标签： rggplot2pie-chart

解决方案

x您可以通过在 中设置参数来实现此目的geom_text(aes())。

对于您想要做的事情，我建议例如：

geom_text(aes(x = 1.4, label = value), size=4, 
              position = position_stack(vjust = 0.5), alpha = 1, color = "black")

推荐阅读