ggplot facet_grid 中的按行着色

Question

我创建了一个圆形网格，每一行显示一个州在 7 个基于圆形大小的不同参数上的排名。这些参数以百分比表示，每个州加起来为 100。对于我的 facet_grid，我想根据各个州的比例而不是根据整个网格来为每个圆圈着色和调整大小。我会举例说明。

圆形网格

library(ggforce)
library(tidyverse)
library (ggplot)
library(reshape2)

d <- data.frame("state" = c("Alabama", "Florida", "Washington", "New York"),
       "A" = c(20, 25, 45, 11),
       "B" = c(25, 25, 10, 4),
       "C" = c(50, 5, 20, 5),
       "D" = c(5, 45, 25, 80))

d1 <- melt(d, id.vars = "state")

p3 <- ggplot(d1) +
  geom_circle(aes(x0 = 0.5, y0 = 0.5, r = value, color = "white", fill = value), data = d1) +
  scale_fill_continuous(low = "#5fc5bd", high = "#f37021") +
  scale_color_manual(values = "white") +
  coord_fixed() +
  theme_bw() +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.ticks = element_blank() ,
        legend.position = "none",
        panel.border = element_blank(), 
           axis.title.x=element_blank(),
           axis.title.y=element_blank(),
        axis.text = element_blank())

p3 <- p3 + facet_grid(state ~ variable, labeller=label_wrap_gen(width=10)) +
  theme(strip.text.x = element_text(size = 10, face = "bold"),
          strip.text.y = element_text(size = 10, face = "bold"),
          strip.background = element_rect(colour = "gray", fill = "white"))
p3

截至目前，图表上的圆圈正在根据整个数据集中的最大值进行缩放。我希望它考虑每个州的值并根据每个州的值缩放圆圈大小 - 因此阿拉巴马州最大的圆圈应该是 C，颜色为橙色（该州的最高值），其他州也是如此。任何想法都会很有帮助，谢谢。

Answer 1

您可以向 df1 添加一个新列来实现此目的：

d1 <- melt(d, id.vars = "state") %>%
      group_by(state) %>%
      mutate(per_state = value/max(value))

现在你设置 r = per_state 和 fill = per_state 得到这个：

ggplot facet_grid 中的按行着色

Rowwise coloring in facet_grid in ggplot

r

ggplot2

data-visualization

facet-grid