0

所以我正在创建一个 MI 包，我想包含一个条形图，显示提交内容的时间以及迟到的责任人。我有 5 列数据，可以分为两个部分：

第 1 部分（提交时间）= 上午 7 点前、上午 7 点至上午 9 点、上午 9 点后

Section 2（故障）=我们，他们有6行数据（即前6个月）。

读取数据、操作数据、更改日期或格式都没有问题。同样，创建堆叠的整组数据或堆叠的每个部分（这是我想要的）的条形图也没有问题。

我想要的是第 1 部分是一个堆叠的条形图，旁边有第 2 部分。

如果描述不清楚，在 excel 中重新创建

这是我到目前为止的代码。下载和操作数据到合适的格式

MIDF <- read.xlsx("C:/MISMM.xlsx", sheet = 11, startRow = 3, colNames = TRUE)
MDATE <- excel_numeric_to_date(MIDF$`Month./.Year`, date_system = "modern", include_time = "false")
MDATE <- format(as.Date(MDATE), "%m-%Y")
MIDF <- cbind(MDATE, MIDF[2:19])
MIDF <- tail(MIDF, 6)

这是所有 5 列堆叠

LAFU <- MIDF %>% select (9, 10, 11, 12, 13)
LAFUa <- MIDF %>% select(1)
LAFUa <- (t(LAFUa))
LAFU <- (t(LAFU))
LAFUCHART <- barplot(LAFU, 
         names.arg=LAFUa, 
         main = "Lates and who is at fault",
         col=c("#1488CA", "#6B7E87", "#AA0B3C", "#FDC41F",  "#85C9F0"), 
         legend = rownames(LAFU), 
         beside = FALSE)

这两个部分是分开的

LAFUresub <- MIDF %>% select (9, 10, 11)
LAFUerror <- MIDF %>% select (12, 13)
LAFUa <- MIDF %>% select(1)
LAFUa <- (t(LAFUa))
LAFUresub <- (t(LAFUresub))
LAFUerror <- (t(LAFUerror))

 LAFUresubBP <- barplot(LAFUresub, 
    names.arg=LAFUa, 
    main = "Lates",
    col=c("#1488CA", "#6B7E87", "#AA0B3C"), 
    legend = rownames(LAFUresub), 
    beside = FALSE)

 LAFUerrorBP <- barplot(LAFUerror, 
    names.arg=LAFUa, 
    main = "Who is at fault",
    col=c("#FDC41F",  "#85C9F0"), 
    legend = rownames(LAFUerror), 
    beside = FALSE)

最后 - 我试图让他们复制图片。这有点蹩脚，但老实说我不知道​​从哪里开始。

LAFUTIME <- t(group_by(MIDF %>% select(9,10,11)))
LAFUERROR <- t(group_by(MIDF %>% select(12, 13)))
LAFUDATE <- t(MIDF %>% select(1))
test<-rbind(LAFUTIME, LAFUERROR)
barplot(LAFUTIME %>% LAFUERROR)

非常感谢任何帮助。大卫

如果有帮助，这是与我正在使用的数据帧相当的一些代码。

pre7am <- c(1,2,3,2,1,3)
SamNam<- c(2,4,3,6,5,3)
post9am<- c(1,2,1,0,1,0)
us <-     c(0,0,1,3,2,0)
them <-   c(4,8,6,5,5,6)
dates <- c("Jul18", "Aug18", "Sept18", "Oct18", "Nov18", "Dec18")

DF <- data.frame(pre7am, SamNam, post9am, us, them, row.names = dates)
4

1 回答 1

0

所以我使用了以下内容，非常接近：

library(tidyverse)
library(zoo)

DF %>% 
mutate(Dates = rownames(DF),
Dates = factor(Dates, levels = c("Jul18","Aug18", "Sep18", "Oct18", "Nov18", "Dec18"))) %>% 
gather(vartype, value, -Dates) %>% 
mutate(Subsection =paste("Subsection", abs(as.numeric(grepl("am", vartype)) - 1) + 1)) %>% 
ggplot(aes(Subsection,value, fill = vartype, col = vartype)) + 
geom_col() +
facet_grid(.~Dates)

因此，首先我们将Datesfrom rownames 移动到实际变量。然后我们确保Dates是实际的有序因子（需要facet_grids）。然后我们使用gather. Subsection是根据您想要的两种堆栈创建的，我们检查“am”是否在vartype（布尔值）中，然后我们创建一个函数，Subsection1如果“am”在其中vartype并且Subsection2如果“am”不存在，我们将在其中创建。然后因为我们有列高的值，所以我们使用geom_col. 我们还使用facet_grid打破情节Dates并相应地安排。

于 2019-03-21T17:56:48.670 回答