別の列を棒グラフでグループ化する（R）

Question

RをプロットしてStateを使ってこのグラフをグループ化するにはどうすればよいですか？

データ：Excelで作ら

State <- c("Tennessee", "Tennessee", "Tennessee", "Tennessee", 
      "Kentucky", "Kentucky", "Kentucky", "Kentucky", "Kentucky", 
      "Georgia", "Georgia", "Georgia"), 

    City <- c("Chattanooga", "Knoxville", "Memphis", "Nashville", 
      "Covington", "Owensboro", "Bowling Green", "Lexington", "Louisville", 
      "Columbus City", "Augusta", "Atlanta City"), 

    Population <- c(177571, 186239, 652717, 660388, 
       40640, 57265, 58067, 295803, 597337, 
       189885, 195844, 420033) 

サンプルチャート：ggplotで Click here for image

plot_ly() %>% 
     add_trace(
     x = ~City, 
     y = ~Population, 
     type = 'bar', 
     name = 'Population') 

Answer 1

：

data <- data.frame(State, City, Population) 
colnames(data)<-c("category","subcategory","population") 

ggplot(data, aes(category, population)) + 
    geom_bar(aes(fill = category, color=subcategory), position = "dodge", stat="identity")+ 
    theme_minimal() + 
    scale_color_manual(values=c(rep("white", 17))) + 
    theme(legend.position="none") 

​​

と、ggplotlyを使用して：

ggplotly()