条上的LIkert图标签丢失

Question

当我按R中的因子对数据进行分组时，我似乎无法在这些条形图上绘制％标签。有什么想法吗？谢谢！

# Load libraries
library(ggplot2)        # for plotting
library(likert)         # for analyzing likert data
library(plyr)           # for using plot.percents=TRUE

# Create dataset
q1_pre <- c("Strongly agree", "Strongly agree", "Strongly agree", "Strongly agree", "Disagree", "Neither", "NA", "Somewhat agree", "Somewhat disagree","Neither")
q2_pre <- c("Strongly agree", "Strongly agree", "Strongly agree", "Strongly agree", "Disagree", "Neither", "NA", "Somewhat agree", "Somewhat disagree","Neither")

lab_pre <- rep("pre", length(q1_pre))
pre <- cbind(lab_pre, q1_pre, q2_pre)

q1_post <- c("Strongly disagree", "Strongly disagree", "Strongly disagree", "Strongly disagree", "Strongly disagree", "Neither", "NA", "Somewhat disagree", "Somewhat agree","Neither")
q2_post <-c("Strongly disagree", "Strongly disagree", "Strongly disagree", "Strongly disagree", "Strongly disagree", "Neither", "NA", "Somewhat disagree", "Somewhat agree","Neither")
lab_post <- rep("post", length(q1_post))
post <- cbind(lab_post, q1_post, q2_post)

df <- data.frame(rbind(pre, post))
df_lev <- rev(c("Strongly agree", "Somewhat agree", "Neither", "Somewhat disagree", "Strongly disagree", "NA"))

for (i in 2:ncol(df)) {
    df[ , i] <- factor(df[, i], levels=df_lev)
}

# Convert to likert structure
df.likert <- likert(df[2:ncol(df)], grouping=df$lab_pre)

# Plot
quartz(width=8, height=6)                   
plot <- plot(df.likert, text.size=4, plot.percents=T, centered=FALSE,   
                      colors=c("gray25","#CA0020", "#F4A582", "gray80", "#92C5DE", "#0571B0"))  +
         theme(text=element_text(size=14), legend.box.background=element_rect(color="white"),                          legend.title=element_text(size=8), legend.position="bottom", plot.title = element_text(hjust=0.5)) + 
         ylab("% of Participants") +
         guides(fill=guide_legend(nrow=2, title="", reverse=T)) +
         ggtitle("Title") +
         theme(axis.text.x=element_text(color="black"))

plot

我的情节看起来像这样：

Answer 1

看一下likert.bar.plot的代码，似乎有一个怪异的地方应该对组+绘制百分比发出警告：

if (FALSE & plot.percents) {
            warning("plot.percents is not currenlty supported for grouped analysis.")
        }

基本上，您可以重新计算文本的位置，并使用geom_text()将其放回去。尝试以下类似操作，请注意，如果已加载，则不需要库plyr它，请确保它在dplyr之前加载，否则会引起很多问题：

library(ggplot2)
library(likert)
#library(plyr)
library(dplyr)

func = function(X){
offset=sum(X[X<0])
cumsum(abs(X))+offset - abs(X)/2
}

p <- plot(df.likert, text.size=4, plot.percents=TRUE)

label_data = p$data %>% 
group_by(Group,Item) %>% 
mutate(perc=round(abs(value),digits=1),value=func(value)) %>%
filter(perc!=0)

p + geom_text(data=label_data,aes(label=paste0(perc,"%")),size=2)