使用ggplot2將條形圖組合在一起 -有解無憂

我的資料是這樣的：

支出福利

賬戶	收入
銷售食品

338.96 43.18 295.78

賣書 2757.70 賣書 2757.70 2341.66 2757.70 2341.66

賣自行車 1369.00 1157.00

為了做到這一點，我寫了這個R腳本：

## take a data set in and produces a bar chart.

##去掉包含賬戶名的列，只保留數值：
values <- as. matrix(data)[, -1]/span>

##將字串轉換為數字：
值 < - apply(values, 2,  as. numeric)

##對矩陣進行轉置:
values <- t（values）

##縱軸標簽取自第一列：
accountNames <- data$Accounts

##圖例是第一行，除了第一個單元格：
legend < - tail(names(data)。  -1）

##顏色是隨機抽取的。
顏色< -彩虹(長度(傳奇))

##增加左邊距以適應水平軸標簽：
par(mar=c（5。 8, 4。 2） 。 1)。

##軸標簽是水平繪制的:
par(las=1) 

barplot()
  values,
  names.arg=accountNames,
  col=colors,
  beside = TRUE,
  legend = legend,
  horiz = TRUE
)

我想用ggplot2來更新這個條形圖，我在同一檔案的其他圖表中也使用了這個圖表。我發現做這個的檔案總是假設資料的形狀非常不同，而且我對R的了解不夠，不能自己找出該怎么做。

uj5u.com熱心網友回復：

這里是基本的，然后你可以按照你想要的方式來定制繪圖

圖書館

library(tidyverse)

資料

data <-
tibble::tribble()
        ~Accounts, ~Income。  ~支出, ~福利, "賣菜", 338.96,  43. 18, 295.78, 
  "賣書", 2757.7,  2341。 66, 416.04, 
  "出售自行車", 1369。  1157, 212 
  )

代碼

data %>%
  #Pivot Income, Expense and Benefit>
  pivot_longer(cols = -Accounts) ％> % 
  #Define each aesthetic
  ggplot(aes(x = value,  y = Accounts。 填充=名稱）） 
  # 添加幾何列 
  geom_col(position = position_dodge())

結果

uj5u.com熱心網友回復：

1.用pivot_longer

將你的資料做成長格式。

2.然后用geom_bar和

繪制。

使用coord_flip

library(tidyverse)
df%>% 
    pivot_longer()
        cols= -Accounts, 
        names_to = "Category", 
        values_to = "value"
    ） %>% 
    ggplot(aes(Accounts, y=values。 填充= Category)）  
    geom_bar(stat="identity"。 位置= "dodge"） 
    coord_flip()  
    theme_classic()

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/318939.html

標籤：

上一篇：添加第二條軸（頂部和右側），帶有小刻度

下一篇：在ggsurvplot中顯示大于號（unicode錯誤）。