Question

I am using a data set called Forbes2000 which is provided by the package HSAUR. I am able to plot the data but not able to abbreviate each point with the corresponding country name. Here is the code I have tried:

Forbes2000top50ccompanies <- head(Forbes2000[order(Forbes2000$profits, decreasing= T),], n = 50)
plot(sales ~ assets,data=Forbes2000top50ccompanies)

Answer 1

This will give you labels that are the first 4 letters of the country names and make them smaller than would be the default:

with(Forbes2000top50ccompanies, 
         text(x=assets, y=sales, 
              labels=substr(Forbes2000top50ccompanies$country, 1, 4), cex=0.6) )