使用gggraph和tidyverse构建矩阵式散点图

假设我有一个数据框架，在这个框架中，人们对45个项目做出react ，按照利克特量表(5分)表示他们感到焦虑的"频率"和"强度".因此，该数据集由90个项目组成.

每个人都有一个数据集，我想建立一个曲线图，其中X轴是频率(数字1到5)，Y轴是强度(数字1到5)，每个点都是一个项目的react .

我真的很难策划这件事.

数据集是

df = structure(list(type = c("f1", "i1", "f2", "i2", "f3", "i3", "f4", 
 "i4", "f5", "i5", "f6", "i6", "f7", "i7", "f8", "i8", "f9", "i9", 
 "f10", "i10", "f11", "i11", "f12", "i12", "f13", "i13", "f14", 
 "i14", "f15", "i15", "f16", "i16", "f17", "i17", "f18", "i18", 
 "f19", "i19", "f20", "i20", "f21", "i21", "f22", "i22", "f23", 
 "i23", "f24", "i24", "f25", "i25", "f26", "i26", "f27", "i27", 
 "f28", "i28", "f29", "i29", "f30", "i30", "f31", "i31", "f32", 
 "i32", "f33", "i33", "f34", "i34", "f35", "i35", "f36", "i36", 
 "f37", "i37", "f38", "i38", "f39", "i39", "f40", "i40", "f41", 
 "i41", "f42", "i42", "f43", "i43", "f44", "i44", "f45", "i45"
), item = c(1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 
 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, 16, 16, 17, 
 17, 18, 18, 19, 19, 20, 20, 21, 21, 22, 22, 23, 23, 24, 24, 25, 
 25, 26, 26, 27, 27, 28, 28, 29, 29, 30, 30, 31, 31, 32, 32, 33, 
 33, 34, 34, 35, 35, 36, 36, 37, 37, 38, 38, 39, 39, 40, 40, 41, 
 41, 42, 42, 43, 43, 44, 44, 45, 45), value = c(1, 1, 1, 1, 2, 
 2, 1, 1, 0, 0, 0, 0, 1, 1, 2, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
 2, 2, 0, 0, 1, 1, 2, 2, 4, 2, 4, 2, 0, 0, 0, 0, 0, 0, 0, 0, 2, 
 2, 1, 0, 1, 2, 3, 2, 0, 0, 0, 0, 0, 0, 5, 3, 1, 1, 2, 3, 3, 2, 
 2, 1, 5, 1, 2, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 
 0), type2 = c("Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", 
 "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", 
 "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", 
 "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", 
 "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", 
 "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", 
 "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", 
 "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", 
 "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", 
 "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", "Freq", "Int", 
 "Freq", "Int")), row.names = c(NA, -90L), class = c("tbl_df", 
 "tbl", "data.frame"))

剧情是

ggplot(df, aes(x = type2, y = value)) +
  geom_jitter() +
  scale_x_discrete(name ="Freq", 
                   limits=c("1","2","3","4","5")) +
  scale_y_discrete(name ="Inten", 
                   limits=c("1","2","3","4","5"))