ハドリーがデータにブレークを挿入しないことについて指摘していることは知っていますが、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 軸のデータにブレークを入れることは可能ですか、それとも対数変換するのがよいでしょうか? 前もって感謝します。