2016-12-23 24 views
0

顯示所有的x軸標籤我有了變量城市,描述和n以下的數據幀。hchart()條形圖不中的R

city <- c("BIG COTTONWOOD", "BOUNTIFUL", "CANYON RIM", "CANYON RIM", 
"CANYON RIM", "COPPERTON", "COTTONWOOD HEIGHTS", "DRAPER", "DRAPER", 
"EAST MILLCREEK", "FARMINGTON", "FARMINGTON", "HERRIMAN", "HERRIMAN", 
"HERRIMAN", "HERRIMAN", "HOLLADAY", "KEARNS", "KEARNS", "MAGNA", 
"MAGNA", "MAGNA", "MAGNA", "MAGNA", "MIDVALE", "MIDVALE", "MIDVALE", 
"MIDVALE", "MIDVALE", "MURRAY", "MURRAY", "MURRAY", "MURRAY", 
"MURRAY", "MURRAY", "MURRAY", "NORTH SALT LAKE", "OLYMPUS COVE", 
"OLYMPUS COVE", "PARK CITY", "RIVERTON", "SALT LAKE CITY", "SALT LAKE CITY", 
"SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", 
"SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", 
"SALT LAKE COUNTY", "SALT LAKE COUNTY", "SANDY", "SANDY", "SANDY", 
"SANDY", "SANDY", "SANDY", "SOUTH JORDAN", "SOUTH SALT LAKE", 
"SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH SALT LAKE", 
"SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH WEST SL COUNTY", 
"TAYLORSVILLE", "TAYLORSVILLE", "TAYLORSVILLE", "TOOELE", "UTAH COUNTY", 
"WEST JORDAN", "WEST JORDAN", "WEST JORDAN", "WEST JORDAN", "WEST MILLCREEK", 
"WEST MILLCREEK", "WEST MILLCREEK", "WEST MILLCREEK", "WEST MILLCREEK", 
"WEST MILLCREEK", "WEST MILLCREEK", "WEST VALLEY CITY", "WEST VALLEY CITY", 
"WEST VALLEY CITY", "WEST VALLEY CITY", "WEST VALLEY CITY", "WEST VALLEY CITY", 
"WEST VALLEY CITY", "WEST VALLEY CITY", "WOODS CROSS", "WOODS CROSS" 
) 
description <- c("PUBLIC ORDER", "PUBLIC ORDER", "LARCENY", "PUBLIC ORDER", 
"PUBLIC PEACE", "PUBLIC ORDER", "PUBLIC ORDER", "NONREPTABL TA", 
"PUBLIC ORDER", "PUBLIC ORDER", "DAMAGED PROP", "PUBLIC ORDER", 
"DAMAGED PROP", "DRUGS", "LARCENY", "PUBLIC ORDER", "PUBLIC ORDER", 
"PUBLIC ORDER", "PUBLIC PEACE", "ASSAULT", "DRUGS", "ESCAPE", 
"LARCENY", "PUBLIC ORDER", "DRUGS", "ESCAPE", "PUBLIC ORDER", 
"PUBLIC PEACE", "REPORTABLE TA", "ASSAULT", "DAMAGED PROP", "DRUGS", 
"ESCAPE", "LARCENY", "PUBLIC ORDER", "STOLEN VEHICLE", "PUBLIC ORDER", 
"ESCAPE", "PUBLIC ORDER", "PUBLIC ORDER", "PUBLIC ORDER", "ASSAULT", 
"DAMAGED PROP", "DRUGS", "ESCAPE", "LARCENY", "NONREPTABL TA", 
"PUBLIC ORDER", "PUBLIC PEACE", "REPORTABLE TA", "STOLEN VEHICLE", 
"PUBLIC ORDER", "REPORTABLE TA", "DAMAGED PROP", "DRUGS", "ESCAPE", 
"NONREPTABL TA", "PUBLIC ORDER", "PUBLIC PEACE", "PUBLIC ORDER", 
"ASSAULT", "DRUGS", "ESCAPE", "LARCENY", "PUBLIC ORDER", "PUBLIC PEACE", 
"REPORTABLE TA", "STOLEN VEHICLE", "PUBLIC ORDER", "ESCAPE", 
"PUBLIC ORDER", "PUBLIC PEACE", "DAMAGED PROP", "PUBLIC PEACE", 
"DRUGS", "ESCAPE", "PUBLIC ORDER", "PUBLIC PEACE", "ASSAULT", 
"DRUGS", "ESCAPE", "LARCENY", "NONREPTABL TA", "PUBLIC ORDER", 
"PUBLIC PEACE", "ASSAULT", "DRUGS", "ESCAPE", "NONREPTABL TA", 
"PUBLIC ORDER", "PUBLIC PEACE", "REPORTABLE TA", "STOLEN VEHICLE", 
"DAMAGED PROP", "PUBLIC ORDER") 

n <- c(3L, 2L, 1L, 2L, 1L, 1L, 4L, 1L, 16L, 6L, 1L, 4L, 1L, 1L, 2L, 
2L, 6L, 13L, 2L, 2L, 1L, 2L, 1L, 8L, 3L, 1L, 11L, 1L, 2L, 1L, 
1L, 2L, 3L, 1L, 8L, 1L, 1L, 1L, 2L, 1L, 4L, 4029L, 2496L, 4837L, 
3637L, 11432L, 2348L, 8008L, 3798L, 2210L, 2341L, 1L, 1L, 1L, 
4L, 1L, 1L, 10L, 1L, 3L, 1L, 11L, 9L, 6L, 13L, 1L, 2L, 1L, 3L, 
1L, 12L, 2L, 1L, 1L, 3L, 1L, 7L, 1L, 2L, 1L, 3L, 2L, 1L, 15L, 
1L, 2L, 6L, 7L, 4L, 16L, 5L, 2L, 1L, 1L, 1L) 

slc <- data.frame(city,description,n) 

我使用的highcharter()包提供通過J.Kunst顯示分組條形圖在上述數據幀。我運行以下相同的命令。

library(highcharter) 
library(dplyr) 
colors <- c("#487098","#484898","#34348d","#19198b","#208582","#942f59","#dd125b","#000000","#c61051","#000FFF") 


slc %>% hchart("column",x=city,y=log(n*100),group=description)%>%hc_add_theme(hc_theme_google()) %>% hc_colors(colors) 

的分組條形圖顯示正確,有輕微的問題。並非所有slc$city變量都顯示在x軸上。這可能是由於城市變量的數量。有沒有辦法減少文字顯示大小? (類似於ggplot2中的geom_text)謝謝您提前!

回答

0

您可以通過設置xAxis.labels.step1強制所有x軸標籤的顯示。每次標籤旋轉都不會很好計算,所以您可以通過設置將rotation設置爲-90

slc %>% hchart("column",x=city,y=log(n*100),group=description) %>% 
    hc_add_theme(hc_theme_google()) %>% 
    hc_colors(colors) %>% 
    hc_xAxis(labels = list(rotation = -90, step = 1)) 

結果:

enter image description here

演示爲Highcharts(無R):http://jsfiddle.net/Lv12u7cg/