更新:看来此问题可能是由于错误所致。从我对github问题线程的基本了解来看,他们似乎意识到了这一点,并希望在下一个更新中对其进行修复。
当我对我重新排序为关卡的facet_wrap使用变量时,geom_text函数放置了错误的标签。该图应该标有x轴的值。 但显然标签是错误的,当我将它们与数据进行比较时(参见下文),很明显,刻面未将geom_text排序为所需的级别。因此,“ 1至5年”组的值用于标记“一年以下”方面。
数据帧是TenQ1(保有权,问题1的缩写)
Groups: Question, Tenure [5]
Question Tenure Value Value_Mean n
<chr> <fct> <chr> <dbl> <int>
1 Q1 1 to 5 years Communications 2.47 34
2 Q1 1 to 5 years Community 2.41 22
3 Q1 1 to 5 years ContImp 2.68 37
4 Q1 1 to 5 years Customers 1.74 50
5 Q1 1 to 5 years Employees 2.02 45
6 Q1 1 to 5 years Integrity 2.09 57
7 Q1 1 to 5 years Preparedness 2.5 24
8 Q1 1 to 5 years Teamwork 2.40 43
9 Q1 10 to 20 years Communications 2.76 34
10 Q1 10 to 20 years Community 2.67 18
# ... with 30 more rows
这是我用于绘图的代码:
ggplot(TenQ1, aes(x = Value, fill = n))
+geom_point(aes( y = Value_Mean,fill = n), size = 5,shape = 21)
+facet_wrap(~Tenure, ncol = 3)
+scale_fill_gradientn(colors = rainbow(5))+scale_y_reverse(limits = c(4,1))
+theme(axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)), axis.text.x=element_text(size = rel(1.3), angle=45, hjust=1))
+geom_text(aes(y = Value_Mean), nudge_y = .3, size = 3, label = round(TenQ1$Value_Mean, digits=1))
+ labs(fill = "Number of staff \n that ranked this \n value in top 4",y = "Average rank from 1 to 4 for each value")
我曾考虑从geom_text的标签中删除TenQ1 $,但是随后出现错误“找不到对象'Value_Mean'”。