1

我最近看到了一个我想在 R 中复制的图表。该图表将多个记录的分数或其他测量值显示为一个彩色框，分为 4 种颜色之一。在我的图像中，它是红色、浅红色、浅绿色和绿色。因此，每条记录的每个分数都会得到一个框 - 想法是每条记录在多个时间点的给定时间点都有一个分数。在我的示例中，我将使用一段时间内的学生考试成绩，因此假设我们全年有 4 名学生和 8 次考试（按时间顺序），每个学生将有 8 个盒子，结果是 32 个盒子。每行（学生）将有 8 个盒子。

图表的黑客尝试

以下是我创建一些示例数据的方式：

totallynotrealdata <- data.frame(Student = c(rep("A",8),rep("B",8),rep("C",8),rep("D",8)),Test = rep(1:8,4), Score = sample(1:99,32,replace = TRUE), BinnedScore = cut(totallynotrealdata$TB,breaks = c(0,25,50,75,100),labels = c(1,2,3,4)))

我想知道如何在 ggplot 中重新创建此图表？我应该看什么geoms？

4

1 回答 1

1

你可以玩geom_rect()。这是非常基本的，但我想您可以轻松地针对您的目的对其进行优化：

df <- data.frame(Student = c(rep(1,8),rep(2,8),rep(3,8),rep(4,8)),
                 Test = rep(1:8,4),
                 Score = sample(1:99,32,replace = TRUE)) 

df$BinnedScore <- cut(df$Score,breaks = c(0,25,50,75,100),labels = c(1,2,3,4))
df$Student     <- factor(df$Student, labels = LETTERS[1:length(unique(df$Student))])

library(ggplot2)

colors   <- c("#f23d2e", "#e39e9c", "#bbd3a8", "#68f200")    
numStuds <- length(levels(df$Student))
numTests <- max(df$Test)

ggplot() + geom_rect(data = df, aes(xmin = Test-1, xmax = Test, ymin = as.numeric(Student)-1, ymax = as.numeric(Student)), fill = colors[df$BinnedScore], col = grey(0.5)) +
  xlab("Test") + ylab("Student") +
  scale_y_continuous(breaks = seq(0.5, numStuds, 1), labels = levels(df$Student)) +
  scale_x_continuous(breaks = seq(0.5, numTests, 1), labels = 1:numTests)

在此处输入图像描述

于 2016-07-26T21:24:47.690 回答