[R] Barplot not showing all labels

[Jim Lemon]

On 01/14/2014 06:15 AM, Jeff Johnson wrote:
> I have a table that consists of the following country codes and frequencies:
>     AE AN AR AT AU BB BD BE BH BM BN BO BR BS CA CH CM CN CO CR CY DE DK DO
> EC ES
>   0  3  0  2  1 31  4  1  1  1 45  1  1  4  5 86  3  1  8  1  2  1  8  2  1
>   2  4
> FI FR GB GR GU HK ID IE IL IN IO IT JM JP KH KR KY LU LV MO MX MY NG NL NO
> NZ PA
>   2  4 35  3  3 14  3  5  2  5  1  2  1 15  1 11  2  2  1  1 23  7  1  6  1
>   3  1
> PE PG PH PR PT RO RU SA SE SG TC TH TT TW TZ US ZA
>   2  1  1  8  1  1  1  1  1 18  1  1  2 11  1  0  3
>
> I am executing:
> non_us<- table(subset(mydf, (COUNTRY %in% validcountries)&  COUNTRY !=
> "US", select = COUNTRY))
>
> barplot(non_us,horiz=TRUE,xlab = "Count", ylab = "Country",main= "Count of
> Non-US Records by Country",col="red")
>
> It creates the attached image (I hope images come through on email). Notice
> that it is not displaying all of the country codes. It shows bars for each
> country, but only 6 are appearing.
>
> Does anyone have a suggestion? I'm open to using qplot, ggplot or ggplot2
> (and have tried that), but I want a bar (horizontal) chart not a column
> chart.
>
Hi Jeff,
We didn't get the image, and I don't know what "validcountries" 
contains, but this may be close to what you want:

URLcodes<-c("AE","AN","AR","AT","AU","BB","BD","BE","BH","BM",
  "BN","BO","BR",
  "BS","CA","CH","CM","CN","CO","CR","CY","DE","DK","DO","EC",
  "ES,FI","FR",
  "GB","GR","GU","HK","ID","IE","IL","IN","IO","IT","JM","JP",
  "KH","KR","KY",
  "LU","LV","MO","MX","MY","NG","NL","NO","NZ","PA","PE","PG",
  "PH","PR","PT",
  "RO","RU","SA","SE","SG","TC","TH","TT","TW","TZ","US","ZA")
values<-c(0,3,0,2,1,31,4,1,1,1,45,1,1,4,5,86,3,1,8,1,2,1,8,2,12,4,
  2,4,35,3,3,14,3,5,2,5,1,2,1,15,1,11,2,2,1,1,23,7,1,6,1,3,12,
  1,1,8,1,1,1,1,1,18,1,1,2,11,1,0,3)
noUS<-URLcodes!="US"
barpos<-barplot(values[noUS],horiz=TRUE)
require(plotrix)
staxlab(2,at=barpos,labels=URLcodes[noUS],nlines=3)

Jim