отметки оси с scale_x_break: больше отметок только с некоторыми помеченными - PullRequest
Новая
       13

отметки оси с scale_x_break: больше отметок только с некоторыми помеченными

0 голосов
/ 05 июня 2018

Таким образом, у меня есть график, на котором я хочу, чтобы ось X показывала конкретные даты, начиная с 16-06-2016 по 04-08-2016, с датами недели, помеченными на оси X.Это пока что мне удалось сделать - однако, я также хотел бы, чтобы в день были пустые отметки, а также ярлыки недели - но я не уверен, что могу применить несколько условий scale_x_date (breaks =).

Буду признателен за любую помощь в том, как добавить дополнительные отметки!

Набор фиктивных данных для игры: 

library(ggplot2)
library(reshape2)

#some data
df <- structure(list(Date = structure(c(16968, 16969, 16970, 16971, 
16972, 16973, 16974, 16975, 16976, 16977, 16978, 16979, 16980, 
16981, 16982, 16983, 16984, 16985, 16986, 16987, 16988, 16989, 
16990, 16991, 16992, 16993, 16994, 16995, 16996, 16997, 16998, 
16999, 17000, 17001, 17002, 17003, 17004, 17005, 17006, 17007, 
17008, 17009, 17010, 17011, 17012, 17013, 17014, 17015, 17016
), class = "Date"), Tc = c("0.0964", "0.0780", "0.1265", "0.1503", 
"0.1548", "0.1028", "0.1112", "0.1283", "0.0956", "0.0847", "0.0785", 
"0.0859", "0.0879", "0.1203", "0.1677", "0.2174", "", "", "0.1496", 
"0.1080", "0.1101", "0.1289", "0.0942", "0.0835", "0.0851", "0.0881", 
"0.1216", "0.0766", "0.0744", "0.0626", "", "0.1116", "", "0.0862", 
"", "0.1210", "", "", "0.1074", "", "0.1527", "", "0.1513", "", 
"0.1246", "", "0.1415", "", "0.0827")), .Names = c("Date", "Tc"
), class = "data.frame", row.names = 3:51)


# melt data frame
df <- melt(df, id.vars = c("Date"))

#basic plot
plot1 <-  ggplot(df[!is.na(df$value), ], 
            aes(x=Date, y=value, color=variable, group = variable,shape 
= variable, linetype = variable, fill = variable))

# points
plot1 <- plot1 + geom_line(lwd =3)+geom_point(size=17, stroke =2) 

break.vec <- c(as.Date("2016-06-16"),
           seq(from=as.Date("2016-06-16"), to=as.Date("2016-08-04"), 
by="week"))
plot1 <- plot1 + scale_x_date(breaks = break.vec, date_labels = "%d-%m", limits=range(break.vec))

1 Ответ

0 голосов
/ 05 июня 2018

Хорошо, спасибо за вклад!Это то, что я сделал с комментариями, хотя я уверен, что может быть более краткий способ сделать это - но это делает работу!

 break.vec <- seq(from=as.Date("2016-06-16"), to=as.Date("2016-08-04"), 
 by="day")
 plot1 <- plot1 + scale_x_date(breaks = break.vec, 
                            labels=c("16-06","","","","","","","23-06","","","","","","", "30-06",
                                     "","","","","","", "07-07", "","","","","","", "14-07",
                                     "","","","","","","21-07", "","","","","","", "28-07", 
                                     "","","","","","", "04-08"),expand = c(0.05,0))
...