主页 / coding / 问题 / 77246227
Accepted
RKeithL
Asked: 2023-10-07 00:53:16 +0800 CST

难以绘制 4 个非数字变量

  • 772

我有这样的数据：

DF <- data.frame(Majors = c('Sam', 'Bob', 'Henry', 'John', 'Ted', 'Carl', 
                          'Robert', 'Matt', 'Jared', 'Jack', 'Greg', 
                          'Arthur', 'Glenn'), 
                 MEASURES = c('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 
                              'I', 'J', 'K', 'L', 'M'), 
                 LCOs = c(1.1, 2.1, 3.3, 4.1, 1.2, 1.1,
                          2.4, 3.3, 2.3, 1.1, 2.1, 1.4, 7), 
                 Years=c('2017-2018', '2017-2018', '2017-2018', 
                         '2018-2019', '2018-2019', '2018-2019',
                         '2018-2019', '2019-2020', '2020-2021', 
                         '2020-2021', '2020-2021', '2020-2021', 
                         '2021-2022'))

我的目标是绘制（或表格？），以便Majorsx 轴/底部，Measuresy 轴/侧面，LCOs相应地绘制，并Years通过对绘制的值进行着色来表示LCOs。根据我迄今为止的尝试，我认为ggplot2选择可能不是最好的。但kable似乎不想“策划”（因为缺乏更好的术语）它们。

我非常感谢任何帮助！

编辑以包括预期结果的可怜草图

在此输入图像描述

1 个回答

  1. Best Answer
    library(tidyverse)
ggplot(DF |> mutate(Majors = factor(Majors) |> fct_inorder(),
                    MEASURES = factor(MEASURES) |> fct_rev()), 
       aes(Majors, MEASURES, label = LCOs, color = Years)) + 
  geom_text() +
  theme_minimal() +
  theme(panel.grid = element_blank())

    在此输入图像描述

    • 1

相关问题