Как получить метки по вертикали по оси x при построении в r languauge

Question

Я создаю сюжет в R. Я не делаю древовидную карту, как на картинке, - но я хочу, чтобы моя ось x имела переменную имена вертикальные, как на картинке.

Это код, который я использую для создания сюжета.

library(RPostgreSQL) 
drv <- dbDriver("PostgreSQL") 
con <- dbConnect(drv, dbname='postgres',user='postgres',password='postgres', port='5432', host='localhost') 
b='SELECT Distinct "TypeText" as t, Count(*)as c FROM public."NewOrleans911" group by t;' 
rs <- dbSendQuery(con,b) 
a = dbListResults(con) 
a = fetch(rs,n=-1) 
data<-a$t 
barplot(a$c,xlab="type", ylab="count",main="Crime Vs #",xlim=c(1,233),ylim=c(0,333555),names.arg=c(a$t),labCol=colnames(data)) 

И мои данные голова (а)

        type(t) count(c) 
1      PUBLIC WORKS ENFORCE 3 
2      DESCRICATION OF GRAV 1 
3        AUTO THEFT 9812 
4 OFFICER NEEDS ASSISTANCE, LIFE IN DANGER 1 
5    AGGRAVATED BATTERY DOMESTIC 10 
6      DOMESTIC CRIMINAL DA 954 

мне нужна ось х, чтобы выглядеть как изображение в ссылке http://1.bp.blogspot.com/-EkH5y0QZi7Q/Ug5pJoHzNmI/AAAAAAAAAZg/3I8Swupdu7g/s1600/Subway+Heatmap.jpeg

Answer 1

Используйте аргумент las

barplot(....,las=2)