x 軸にプロットされる、0 から 23 までの数字を含む数値変数があります。a)Date
で視覚化するために、これらの時間をオブジェクトに変換する必要がありggplot
、b) x axis は、これらの数値を am/pm 形式で表示します。
これまでのところ、私は持っています:
library("ggplot2")
library(scales)
Sys.setlocale(category = "LC_ALL", locale = "English")
# data
hod <- structure(list(h = c(0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L),
t = c(NA, 2L, 4L, 1L, 3L, NA, 2L, 4L, 1L, 3L), n = c(226L,
226L, 226L, 226L, 226L, 226L, 226L, 226L, 226L, 226L), mean = c(4.52654867256637,
33.6769911504425, 6.34513274336283, 30.3672566371681, 0.309734513274336,
2.84513274336283, 20.0088495575221, 3.38938053097345, 17.7787610619469,
0.101769911504425), std = c(2.74131025125736, 13.4781731703065,
3.0316031901839, 10.9165210711549, 0.603524251739029, 2.25142987605743,
10.9354466064168, 2.27892859595505, 8.76056582129717, 0.33032092222724
)), .Names = c("h", "t", "n", "mean", "std"), row.names = c(NA,
10L), class = "data.frame")
ggplot(hod, aes(x=h, y=mean, colour=as.factor(t))) +
geom_line(size = .1) +
geom_point() +
theme_minimal()
hod$h
実際には まで続きますが、スペースの都合上、と23
のみを含めました。私が欲しいのは、表示するx軸、またはこのようなものです。そんなに難しくないですか?オブジェクトを必要とするものを試してみましたが、オリジンの扱い方がわからなかったので失敗しました - 何時間もオリジンはありません!0
1
6am, 9am, 12am, 3pm, 6pm, 9pm, 12pm
scale_x_date
Date