複数のテキストラベルに対応できるように、Rのラインプロットのx軸をどのようにフォーマットできますか？ここで

Question

Name UP Downs 
A 10 -3 
B 2 -4 
C 1 -1 
D 4 -1 
E 5 0 
F 0 -1 
G 6 -5 
H 0 -1 
I 7 -1 
J 0 -1 
K 0 -11 
L 3 -1 
M 0 -13 
N 2 -1 
O 0 -1 
P 1 -1 
Q 0 0 
R 1 -1 
S 0 0 
T 12 -1 
..... 
......... 
.......... 
(goes all the way to 2500 rows) 

は

nba <- read.csv("test.csv") 
plot(nba$UP, type="b", lwd=1, xaxt="n", ylim=c(-22, 22), col="red", xlab="Name", 
    ylab="Change", main="My plot") 
axis(1, at=1:length(nba$Name), labels=nba$Name) 
lines(rain$Downs, col="green", type="b", lwd=1) 

このコードはうまく動作します...私のRコードは次のようになります...しかし、プロットx軸は、それらのすべてをいくつか選択し、「名前」を示していません。質問は... xaxisのすべてのテキストを表示する方法です（より小さなフォントの垂直）。イメージをファイルとして保存する方法があります。x軸ラベルを拡大して表示することができます...どんな助けも高く評価されています....このフォーラムはこれまで多くのことを助けてくれました。

Answer 1

実際にプロットしてラベル付けしたいものをさらに選択した方が、プロットの分析が簡単になる場合があります。

たとえば、多数の観測結果をプロットにラベリングする1つの戦略は、アウトライヤーのみにラベルを付けることです。ここでは、データの最高と最低のスコアだけにラベルを付ける方法の例を示します。

サンプルデータとプロットを作成します。

set.seed(1) 
n <- 100 
nba <- data.frame(
    obs = 1:n, 
    Name = paste("label", 1:n, sep="_"), 
    UP = sample(0:15, n, replace=TRUE), 
    Downs = sample(-15:0, n, replace=TRUE) 
) 

plot(nba$obs, nba$UP, type="b", lwd=1, ylim=c(-22, 22), col="red", 
    xlab="Name", ylab="Change", main="My plot") 

10の最高値と最低値を検索し、ラベルを追加するtextを使用します？

nups <- 10 
ups <- tail(nba[order(nba$UP), ], nups) 
with(ups, text(obs, UP+1, Name, srt=90, adj=0, cex=0.75)) 

ndowns <- 10 
downs <- head(nba[order(nba$UP), ], nups) 
with(downs, text(obs, UP-1, Name, srt=90, adj=1, cex=0.75))