所以我試圖創建一個條形圖來表示兩種不同的金額，一個表示使用 coin_type_1 進行的交易量，另一個表示 coin_type_2 的交易量。截至目前，我有這個：
montoTipo1 <- df %>%
group_by(MONEDA, Monto) %>%
filter(MONEDA=="1") %>%
data.frame() %>%
summarise(Monto_Tipo1 = sum(Monto, na.rm = TRUE))
montoTipo2 <- df %>%
group_by(MONEDA, Monto) %>%
filter(MONEDA=="2") %>%
data.frame() %>%
summarise(Monto_Tipo2 = sum(Monto, na.rm = TRUE))
nombres.MontosTipo <- c("Tipo de moneda 1","Tipo de moneda 2")
montosTipo <- c(montoTipo1[[1]], montoTipo2[[1]])
df.MontosTipo <- data.frame(row.names = nombres.MontosTipo, montosTipo) %>%
rename("Montos totales" = montosTipo)
輸出是：
df.MontosTipo
Montos totales
Tipo de moneda 1 1617682625
Tipo de moneda 2 248738139
如何在我的 x 軸上繪制“Tipo de moneda”資料，并且繪制的值是我在資料框中的值？
uj5u.com熱心網友回復：
正如@RuiBarradas 已經指出的那樣，您希望將行名更改為一列，我們可以使用tibble::rownames_to_column. 在這里，我還提供了一些額外的選項來進一步自定義圖表。我選擇了一種淺色調來填充每個條。我轉換了科學記數法，但是如果您想要沿 y 軸的科學記數法，那么您可以洗掉此處的最后一行（即，scale_y_continuous(labels = comma)）。
library(tidyverse)
require(scales)
df.MontosTipo %>%
tibble::rownames_to_column("nombres.MontosTipo") %>%
ggplot(aes(x = nombres.MontosTipo, y = `Montos totales`, fill = factor(`Montos totales`)))
geom_col( )
scale_fill_hue(c = 40)
theme_bw()
theme(legend.position="none")
xlab("Nombres")
ylab("Montos Totales")
scale_y_continuous(labels = comma)
輸出
資料
df.MontosTipo <-
structure(
list(`Montos totales` = c(1617682625, 248738139)),
row.names = c("Tipo de moneda 1",
"Tipo de moneda 2"),
class = "data.frame"
)
uj5u.com熱心網友回復：
您可以以更簡單的方式到達相同的 data.frame
df.MontosTipo <- df %>%
filter(MONEDA=="2" | MONEDA=="1") %>%
group_by(MONEDA, Monto) %>%
group_by(MONEDA) %>%
summarise('Montos Totales'= sum(Monto, na.rm = TRUE)) %>%
rename("Tipo de moneda" = "MONEDA")
使用您當前的 data.frame 并且您已經擁有tidyverse然后您可以運行
df.MontosTipo <-
df.MontosTipo %>%
rownames_to_column("Tipo de moneda")
然后，由于Tipo de moneda保存在變數中，您可以ggplot使用美學映射將其呼叫到 X 軸內部。
ggplot(df.MontosTipo,
aes(x = `Tipo de moneda`, y = `Montos Totales`,
fill = factor(`Tipo de moneda`)))
geom_col()
最后的想法是，有時在表單中創建變數var_name比var name在函式中呼叫它們時不必添加刻度線更容易。此外，geom_bar()不接受 X 和 Y 美學，所以我寧愿使用geom_bar()
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/417424.html
標籤：