まず普通にプロット． g <- ggplot(data=diamonds) g <- g + geom_point(aes(carat,price)) print(g) これを対数軸に変換 g <- g + scale_x_log10() g <- g + scale_y_log10() print(g) 目盛がおかしな値になる．そこで，breaksで目盛を付ける位置を，labels…