長いラベルを含めるために図のマージンを増やす

Question

基本的に、x軸のすべてのラベルが重複していないことと、図の余白が縦ラベルを表示するのに十分長いことを確認したい。

par(mar=c(180, 70, 2, 2.1)) 
oldfont <- par(font=3) 
table(new$Tag) 
barplot(table(new$Tag),x,las=2,cex.lab=100) 

ここに棒グラフの画像があります。

Answer 1

あなただけなど余白、文字サイズを変更するよりも何かを探していますか？
シングルカウントを検閲して名前を切り捨てることにより、可読性を少し向上させることができます。 20個の以上かそこらという名前のカテゴリを持つ

set.seed(1) 

words <- sapply(
    sample(3:25, 50, replace=TRUE), 
    function(x) { 
     paste(sample(c(letters), x, replace=TRUE), collapse="") 
     } 
) 

strtrunc <- function(x, l, r="…") { 
    trunc <- nchar(x) > l 
    x[trunc] <- paste0(strtrim(x[trunc], l), r) 
    x 
} 


samp <- sample(1:50, 500, replace=TRUE) 
samp.t <- round(1.2^table(samp)) 
samp.t[sample(1:50, 20)] <- 1 
names(samp.t) <- words 

dev.new(width=10, height=5) 
par(mar=c(10, 4, 3, 0.5), mgp=c(0, 0.8, -0.5), cex=0.9) 
b <- barplot(samp.t, xaxt="n", space=0.5, col=1) 
axis(1, at=b, labels=names(samp.t), las=2, tick=FALSE, cex.axis=0.8) 
mtext("All counts", line=1, cex=1.5) 

#barplot with logarithmic y-axis, truncated names and no single-counts 
samp.ts <- samp.t[samp.t != 1] 
names(samp.ts) <- strtrunc(names(samp.ts), 15) 

dev.new(width=10, height=5) 
par(mar=c(10, 4, 3, 0.5), mgp=c(0, 0.8, -0.5), cex=0.9) 
b <- barplot(samp.ts, xaxt="n", space=0.5, col=1, log="y") 
axis(1, at=b, labels=names(samp.ts), las=2, tick=FALSE, cex.axis=1.2) 
mtext("Counts > 1", line=1, cex=1.5) 

バープロットは、一般的に本当にうまく動作しない、あなたのデータを視覚化する別の方法を見つける方が良いかもしれないと思います。ヒストグラムまたは密度プロットは、データに適している場合はオプションになります。それ以外の場合は、棒グラフを小さなセクションに分割します。おそらくは分かりやすいグループで分割することもできます。