ggplot2翻转因子标签

Question

我没有理解这一点。我有一个使用ggplot2的刻面条形图，并寻找一种方法：

1）让它显示我的问卷参与者未选择的类别（例如，如果从未选择类别5（＆＃34;可怕＆＃34;），我仍然希望它显示在图表中（没有条形图）显示全套可能的答案，使图表更容易阅读）。

2）我想在分面图中翻转Y轴，以便＆＃34; Great＆＃34;排在最前面＆＃34;可怕＆＃34;在底部。有没有办法在不改变数据的情况下做到这一点？

附上我提出了一个完整的，独立的迷你示例，说明了我目前的情况。我仍然是一个R-Newbee，所以如果你有关于如何缩短和简化的建议（我确信有很多可以减少），我很高兴听到你的建议。

data.csv：

<?php

    $file = parse_ini_file("test.ini");
                              //^^^^ See also here the extension
    print_r($file);

?>

code.R

ONE;TWO;THREE;FOUR
1;1;2;1
1;2;3;2  
2;2;3;2
3;2;4;3

Answer 1

添加scale_x_discrete(drop=FALSE)以保持空系数级别。为了在不改变原始数据帧的情况下反转因子级别的顺序，我在ggplot的调用中进行了更改。我还对代码做了一些其他调整。此外，您不需要所有这些分号。

library(ggplot2)
library(scales)
library(reshape2)  # For melt function
library(dplyr)     # For chaining (%>%) operator

df = read.csv2("data.csv", fileEncoding="UTF-8")

df[df=="0"]<-NA;      # Removed quotes from NA 
df[df=="1"]<-"Great";
df[df=="2"]<-"Good";
df[df=="3"]<-"OK";
df[df=="4"]<-"Not Good";
df[df=="5"]<-"Horrible";

# four entries
df$ID = c(1:4);

df.molten <- melt(df, id.vars="ID");

# Only need to set factor levels once. No need for the other four calls to factor in 
# the original code. Also, I removed the "NA" level.
df.molten$value <- factor(df.molten$value, levels = c("Great", "Good", "OK", "Not Good", "Horrible"));

# First line reverses factor levels
ggplot(df.molten %>% mutate(value=factor(value, levels=rev(levels(value)))), 
        aes(x = value, fill=value)) + 
  geom_bar(aes(y = (..count..)/8)) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1, face=2), 
        legend.position="none", 
        axis.text= element_text(size=12), 
        axis.title=element_text(size=14,face="bold"), 
        panel.background = element_rect(fill = "white")) +
  scale_fill_manual(values=c("blue4","steelblue2", "blue4","steelblue2", "blue4")) +
  facet_wrap( "variable" ) + 
  scale_y_continuous(breaks=seq(0, 1, 0.1), labels = percent_format()) + 
  scale_x_discrete(drop=FALSE) +   # To keep empty factor levels
  labs(x="", y="") +               # Just to be more concise
  coord_flip()