Question

我正在尝试使用ggplot复制this graph I made in Excel。 My Data is included here.我有许多相同的Excel文件，我想将这些图表作为一个大批量生成，否则我只会使用Excel。我可以使用下面的代码在ggplot中使图形非常相似，但我不知道如何像在Excel中那样制作辅助x轴以使图形看起来正确。我还希望将数据中的一列显示为“System UpLoad Time = 2017年7月25日18:53:32”作为图表的标题。有没有办法轻松做到这一点？

    dat.m <- melt(TestData, id=c ("Depth", "Temp", "Specific Conductance [µS/cm]", "FlECO-AFL", "Beam Attenuation (1/m)", 
                            "Beam Transmission (%)", "Transmissometer voltage", 
                            "Fluorometer voltage", "CDOM Voltage", "CDOM (mg/m^3)", "Flag"))

ggplot(dat.m, aes(value, Depth, colour = variable)) +
  geom_point() + scale_y_reverse()

编辑:: 我已经想出如何制作图表，感谢额外的链接。有没有办法添加我的数据单元格中的内容以包含在标题中或图表上的某个位置？显示“System UpLoad Time = 2017年7月25日18:53:32”的列很重要，需要在图表上，但不一定是标题

新代码在这里：

dat.m <- melt(TestData, id=c ("Depth", "Temp", "Temp2", "Specific Conductance [µS/cm]", "FlECO-AFL", "Beam Attenuation (1/m)", 
                            "Beam Transmission (%)", "Transmissometer voltage", 
                            "Fluorometer voltage", "CDOM Voltage", "CDOM (mg/m^3)", "Flag", "Derivedchlorophyll"))

plot<-ggplot(dat.m, aes(value, Depth, colour = variable)) +
  geom_point() + scale_y_reverse()

plot+ scale_x_continuous(
  "PAR", 
  sec.axis = sec_axis(~ . / 56, name = "Chlorophyll
                      Temp")
)

从Excel-2 x轴复制ggplot上的图形

0 个答案: