object not foundに困っています...

Question

今分からないのは、一番下のobject 'year' is not found の部分です。yearは二枚目のスクリーンショット(データの中身)のyearをx軸に取りたかったのでこうしました泣

Comments

[melian]

dat1 <- read.csv(...) の部分で閉じ括弧が足りないです。

[kat.miz]

here というfunctionがないと言われたのでdat1 <- read.csv("file_show-10.csv", header = TRUE)にしてみました。

[melian]

その場合、同じエラーが発生しますか？ それから、file_show-10.csv の内容が画像の通りであれば、histogram ではなく line plot (geom_line() を使います) になるのではないでしょうか。

Answer 1

質問の主旨とは関係ありませんが、CSV ファイルの内容を見ますと、そのデータは 学校保健統計調査 年次統計1 年齢別 平均身長・平均体重・平均座高の推移 からダウンロードしたものと思われます。これはヒストグラムではなく、line plot にするのが適当ではないでしょうか。その場合、一例として以下の様にします。

library("ggplot2")

# load data
dat1 <- read.csv("file_show-10.csv", header=T)

# fill missing value with NA
for (i in min(dat1$year):max(dat1$year))
  if (!(i %in% dat1$year))
    dat1[nrow(dat1)+1,] = c(i, NA)

# plot
g <- ggplot(dat1, aes(x = year, y = height, color = "red")) +
     geom_line() +
     coord_cartesian(ylim=c(floor(min(dat1$height)), ceiling(max(dat1$height)))) 

# save to PNG file
ggsave(file = "file_show-10.png", plot = g, dpi = 100, width = 10, height = 6)