私のコードまたは binwidth を動作させる方法についての考えをいただければ幸いです。私のデータセットには、数時間ごとに「4」、毎日「24」収集されたタイムスタンプ付きのデータポイントが含まれています。左側に 4 時間の積み上げヒストグラム、右側に 24 時間の積み上げヒストグラムをプロットしようとしています。したがって、右側のビン幅を左側のビン幅よりも 6 倍広くしたいと考えています。しかし、binwidth で試したことはすべてうまくいきませんでした。x 軸のデータ data3$dts は連続的で離散的ではないように見えますが、おそらく私はそれを正しく行っていません。
データに関する重要な注意事項: 右側にグラフ化されたデータ (hours=24 データ) には、常に整数の dts 値があります。左側のデータ、hours=4 データには、整数以外の dts 値があります。
"dts" "Yes" "No" "Maybe" "hours" "days"
"258" 15627.668 8 0 1 4 "7 Days"
"259" 15627.832 13 11 18 4 "7 Days"
"260" 15628 34 47 89 4 "7 Days"
"261" 15628 37 47 90 24 "7 Days"
"262" 15628.168 3 0 1 4 "7 Days"
"40" 15571 345 419 674 24 "90 Days"
"41" 15571.5 91 145 130 4 "90 Days"
"42" 15571.668 158 149 284 4 "90 Days"
"43" 15571.832 96 125 260 4 "90 Days"
"44" 15572 55 33 137 4 "90 Days"
"45" 15572 1050 1119 2660 24 "90 Days"
ペーストビンから取得したデータを含むコード:
library (ggplot2)
library (scales)
library(grid)
library(gridExtra)
color3 <- c("mediumspringgreen","red","grey44")
titles.days <- c( "7 Days", "90 Days")
names.facetby <- c ("dts", "hours", "days")
data3 <- read.table ("http://pastebin.com/download.php?i=wUQQUXP4", header=TRUE)
data3.melt <- melt (data3 , id = names.facetby )
data3.melt$days <- factor (data3.melt$days, levels = titles.days) # put the factor in the right order, so the graphs are in the right order
a <- ggplot ( data3.melt
, aes ( x = dts #as.Date( dts , date1970)
, y = value
, fill = variable)) +
opts (axis.text.x=theme_text(angle=0, hjust=1)) +
scale_fill_manual(values = color3) +
scale_x_date(labels = date_format("%m/%d\n %a") ) +
geom_histogram (stat = "identity", position = "stack", binwidth=6.2) +
facet_wrap( days ~ hours, ncol=2, scales="free")
print(a)
ビン幅が狭すぎる右側のグラフを示す現在の結果: