我在 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))
我的数据是 head(a)
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
我需要我的 x 轴看起来像链接 http://1.bp.blogspot.com/-EkH5y0QZi7Q/Ug5pJoHzNmI/AAAAAAAAAZg/3I8Swupdu7g/s1600/Subway+Heatmap.jpeg中的图像