ggplot の使用時に問題が発生しています。私のコードは、(plot.background = element_rect(color="black") を使用してプロット全体の周りにフレームを表示する必要があります。ただし、4 行のうち 3 行しか取得できません。4 行のうち 4 行を取得する方法についてのアイデアはありますか?
私はこのテーマを持っています：
theme.plot.bar <- function(){
theme(
text = element_text(family = "sans", face = "plain", colour = "black", size = 12, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9),
axis.text.x = element_text(size = 13, colour = "black"),
axis.text.y = element_text(size = 11, colour = "black"),
strip.text = element_text(size = rel(0.8)),
axis.text.x = element_text(vjust = 1),
axis.text.y = element_text(hjust = 1),
axis.ticks = element_blank(),
axis.title.x = element_text(),
axis.title.y = element_text(angle = 90),
panel.background = element_rect(fill = NA ,colour = NA),
panel.grid.major.x = element_blank(),
panel.grid.minor = element_blank(),
panel.grid.major.y = element_line(colour = "black", linetype= "dotted", size =0.6),
strip.text.x = element_text(),
strip.text.y = element_text(angle = -90),
plot.background = element_rect(colour = "black", size = 0.5, linetype= 1, fill="white"), # Kant i højre side kommer ikke med hvis den sættes?
plot.margin = unit(c(0, 1, 0, 0), "cm"),
complete = FALSE)
}
これにより、ggplot で次の出力が得られます。
編集: plot.margin を 3 cm に変更:
EDIT 2: 要求に応じてセッション情報と ggplot-code を使用 NB: すべてのプロット マージンを 2 インチに設定しても機能しません。私はpngを使用します
sessionInfo() R バージョン 2.15.3 (2013-03-01) プラットフォーム: x86_64-w64-mingw32/x64 (64 ビット)
x <- factor(pol$job_komp_v2)
df <- as.data.frame(na.omit(x))
names(df) <- "v1"
farve <- rgb(144,26,30, maxColorValue =255)
r <- ggplot(df,aes(x=v1)) +
geom_bar(aes(y = (..count..)/sum(..count..)),
fill=farve, width=0.35) +
scale_y_continuous(labels = percent, "", limits=c(0,1), breaks= c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1)) +
scale_x_discrete(name= "") +
theme.plot.bar()
r