Question

我知道Hadley已经指出不在数据中插入中断，但是，有没有办法在ggplot 2中暂停这些数据？我真的很喜欢这个包，并且我不得不改变我的所有图表并学习另一个包。

我的数据看起来像这样 - 在我发布之前我提供了一些示例，我在较低端有很多数据，在高端有一些异常值，

Date        Site    Al
07/10/2014  Bo6     32
07/10/2014  Bo1     32
07/10/2014  Bo3     40
07/10/2014  Bo4     60
07/10/2014  Bo5     51
07/10/2014  B14
07/10/2014  B4
07/10/2014  B3
07/10/2014  B5
07/10/2014  B8
07/10/2014  B11
07/10/2014  B13
14/10/2014  Bo6
14/10/2014  Bo1   100
14/10/2014  Bo3   300
14/10/2014  Bo5   2000
14/10/2014  Bo4   3000
14/10/2014  B14
14/10/2014  B3
14/10/2014  B4
14/10/2014  B5
14/10/2014  B8
14/10/2014  B12
4/10/2014   B11
14/10/2014  B13
28/10/2014  Bo4  1000
28/10/2014  Bo5  2000
28/10/2014  Bo6  3000
28/10/2014  B3
28/10/2014  B4
28/10/2014  B5
28/10/2014  B6
28/10/2014  B7
28/10/2014  B8
28/10/2014  B9
28/10/2014  B10
28/10/2014  B11
28/10/2014  B12
28/10/2014  B13
28/10/2014  B14
31/10/2014  B1
31/10/2014  D1

我使用了以下代码： -

require(ggplot2)
require(reshape2)
require(magrittr)
require(dplyr)
require(tidyr)
require(cowplot)
require(grid)
require(scales)
setwd("~/Documents/Results")
mydata <- read.csv("Metals sheet R.csv")
L <- subset(mydata, Site =="Bo1"| Site == "Bo2"| Site == "Bo3"| Site       == "Bo4"| Site == "Bo5" | Site == "Bo6", select = c(Site,Date,Al))
L$Date <- as.Date(L$Date, "%d/%m/%Y")
I <- ggplot(data=L, aes(x=Date, y=Al, colour=Site)) +
geom_point() + 
labs(title = "Total aluminium in the Bowydd
   2014-2015.", x = "Month 2014/2015",
   y = "Total concentration (mg/L)") +
  scale_x_date(date_breaks = "1 month", date_labels = "%m") +      theme_get()
 r2 <- I + geom_hline(aes(yintercept= 10, linetype = "NRW limit"),     colour= 'red') +
   geom_hline(aes(yintercept= 75.5, linetype = "Geochemical atlas limit"), colour= 'blue') +
    scale_linetype_manual(name = "Limit", values = c(2, 2), 
                    guide = guide_legend(override.aes = list(color = c("blue", "red"))))
ggdraw(r2) + draw_figure_label(label = "(a)", position ="top.left")

正如您所看到的，高点掩盖了下面的数据。是否有可能在y轴上的数据中断或更好地记录变换？提前谢谢。

打破ggplot2中的数据

0 个答案: