Question

我有一组这样的测试数据

 week       reason         gross   
    2   Наличные            356.54
    6   FuelUp             1157.54
    7   Альянс              706.54
   10   FlashPay           1567.54
   10   Наличные            135.54
   19   FuelUp             3045.54
   19   Карты Сбербанка     723.54
   19   Наличные           1230.54
   24   FuelUp              875.54
   27   FlashPay           1260.54
   28   Альянс              556.54
   33   FlashPay           9756.54
   33   Ваучеры             756.54
   37   Ваучеры             473.54
   38   Ваучеры             358.54
   41   Карты Сбербанка     600.54
   49   Наличные            100.00

然后我用以下代码绘制了堆积条形图：

query$week = factor(query$week,ordered=TRUE)                       
p <- ggplot(query,aes(x=week,y=gross,fill=reason)) + theme_light() +
        geom_col(position="stack") +
        scale_fill_viridis(discrete = T) +
        labs(x="Неделя 2020")
print(p)

其中查询仅是数据的一部分（来自PostgrSQL。到目前为止，虽然很好，但是这样的代码导致带有不完整的Y轴的此类图片。为什么会这样，我该怎么做才能“延长”轴上的抽签和标签？

Answer 1

您的gross变量不是数字。

起始数据，其中gross是字符串（或因数），而不是数字：

query <- structure(list(week = structure(c(1L, 2L, 3L, 4L, 4L, 5L, 5L, 
5L, 6L, 7L, 8L, 9L, 9L, 10L, 11L, 12L, 13L), .Label = c("2", 
"6", "7", "10", "19", "24", "27", "28", "33", "37", "38", "41", 
"49"), class = c("ordered", "factor")), reason = c("", "FuelUp", 
"", "FlashPay", "", "FuelUp", "_", "", "FuelUp", "FlashPay", 
"", "FlashPay", "", "", "", "_", ""), gross = c("356.54", "1157.54", 
"706.54", "1567.54", "135.54", "3045.54", "723.54", "1230.54", 
"875.54", "1260.54", "556.54", "9756.54", "756.54", "473.54", 
"358.54", "600.54", "100.00")), row.names = c(NA, -17L), class = "data.frame")

（我的仓促导入扼杀了reason ...，这会使显示/图例有点偏斜，但不会改变我回答的前提。）

剧情：

p <- ggplot(query,aes(x=week,y=gross,fill=reason)) + theme_light() +
        geom_col(position="stack") +
        scale_fill_viridis(discrete = T) +
        labs(x="Неделя 2020")

如果将其转换为numeric，则该图看起来更正常。

query$gross <- as.numeric(query$gross)
p <- ggplot(query,aes(x=week,y=gross,fill=reason)) + theme_light() +
        geom_col(position="stack") +
        scale_fill_viridis(discrete = T) +
        labs(x="Неделя 2020")
p

堆积条形图：y轴得到

1 个答案: