Измените метки дорожек ggbio на горизонтальные

На базовом графике R у нас есть las возможность поворота меток осей.

Есть ли способ сделать метки time1 и time2 горизонтальными, используя функцию tracks() из пакета ggbio?

require(ggplot2)
require(ggbio)

## make a simulated time series data set
df1 <- data.frame(time = 1:100, score = sin((1:100)/20)*10)
p1 <- qplot(data = df1, x = time, y = score, geom = "line")
df2 <- data.frame(time = 30:120, score = sin((30:120)/20)*10, value = rnorm(120-30 + 1))
p2 <- ggplot(data = df2, aes(x = time, y = score)) + 
  geom_line() + geom_point(size = 4, aes(color = value))

#plot
tracks(time1 = p1,time2 = p2)

введите здесь описание изображения


r ggplot2 bioconductor
person zx8754    schedule 21.08.2014    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Функция ggbio, похоже, не включает такую ​​опцию. Вы можете сделать свой собственный ggplot.

df1$value = NA
df1$times = "time1"
df2$times = "time2"
df3 = rbind(df1, df2)

ggplot(data = df3, aes(x = time, y = score)) + 
  facet_grid(times~.) +
  geom_line() + 
  geom_point(size = 4, aes(color = value)) +
  theme(strip.text.y = element_text(angle = 0))

У вас по-прежнему есть возможность сохранить график track в формате SVG и отредактировать файл SVG с помощью Inkscape.

person essicolo    schedule 21.08.2014