{"id":495,"date":"2018-07-17T09:33:14","date_gmt":"2018-07-17T00:33:14","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-add-text-and-change-in-tick-label-color-of-graph-in-r\/"},"modified":"2024-10-13T23:11:01","modified_gmt":"2024-10-13T14:11:01","slug":"how-to-add-text-and-change-in-tick-label-color-of-graph-in-r","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-add-text-and-change-in-tick-label-color-of-graph-in-r\/","title":{"rendered":"R \u3067\u30b0\u30e9\u30d5\u306e\u8ef8\u76ee\u76db\u30fb\u8ef8\u30e9\u30d9\u30eb\u30fb\u8272\u306e\u5909\u66f4\u3068\u5024\u8868\u793a\u3092\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"\n

\u7d71\u8a08\u30bd\u30d5\u30c8R\u306e\u30b0\u30e9\u30d5\u4e0a\u306b\u6570\u5024\u3092\u8868\u793a\u3055\u305b\u305f\u308a\u3001\u8ef8\u306e\u76ee\u76db\u9593\u9694\u3084\u8ef8\u30e9\u30d9\u30eb\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u3092\u7d39\u4ecb\u3002<\/p>\n\n\n\n\n\n\n\n

\u8ef8\u306e\u6570\u5024\u3092\u3059\u3079\u3066\u7e26\u306b\u3059\u308b<\/h2>\n\n\n\n

las=1<\/code><\/p>\n\n\n\n

\u8ef8\u30e9\u30d9\u30eb\u306e\u30b9\u30bf\u30a4\u30eb\uff08the style of axis labels\uff09\u30021\u306f\u7e26\u8ef8\u3082\u6a2a\u8ef8\u3082\u7e26\u65b9\u5411\u306e\u6570\u5b57\u306b\u3059\u308b\u610f\u5473\u3002<\/p>\n\n\n\n

\u4f8b\uff1a<\/p>\n\n\n\n

library<\/span>(<\/span>MASS)<\/span>\nboxplot<\/span>(<\/span>bwt~<\/span>smoke,<\/span>data=<\/span>birthwt)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
boxplot<\/span>(<\/span>bwt~<\/span>smoke,<\/span>las=<\/span>1<\/span>,<\/span>data=<\/span>birthwt)<\/span>\n<\/code><\/pre>\n\n\n\n
\u7e26\u8ef8\u306e\u6570\u5b57\u304c\u7e26\u5411\u304d\u306b\u5909\u308f\u308b\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u8ef8\u306e\u6570\u5b57\u3092\u5927\u304d\u304f\u3059\u308b<\/h2>\n\n\n\n
cex.axis=<\/code><\/p>\n\n\n\n
\u8ef8(AXIS)\u306e\u6587\u5b57\u62e1\u5927(Character EXpansion)\u3002\u30c7\u30d5\u30a9\u30eb\u30c8(\u6307\u5b9a\u3057\u306a\u3044\u3068\u304d)\u306f1\u30022\u306b\u3059\u308b\u3068\u3068\u3066\u3082\u5927\u304d\u304f\u306a\u308b\u30021.5\u306a\u3069\u306e\u5c0f\u6570\u70b9\u4ee5\u4e0b\u3082\u4f7f\u3048\u308b\u3002<\/p>\n\n\n\n
boxplot<\/span>(<\/span>bwt~<\/span>smoke,<\/span>cex.axis=<\/span>1.5<\/span>,<\/span>data=<\/span>birthwt)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\uff1e\uff1e\u3082\u3046\u7d71\u8a08\u3067\u60a9\u3080\u306e\u306f\u7d42\u308f\u308a\u306b\u3057\u307e\u305b\u3093\u304b\uff1f\u00a0<\/a><\/strong><\/span><\/p>\r\n\"\"<\/a>\r\n
\u21911\u4e07\u4eba\u4ee5\u4e0a\u306e\u533b\u7642\u5f93\u4e8b\u8005\u304c\u8cfc\u8aad\u4e2d<\/span><\/strong><\/span><\/p><\/div>
\u8ef8\u306e\u30e9\u30d9\u30eb\u3092\u5909\u66f4\u3059\u308b<\/h2>\n\n\n\n
X\u8ef8\u3001Y\u8ef8\u306e\u30e9\u30d9\u30eb\u3092\u5909\u66f4\u3057\u305f\u3044\u3068\u304d\u306f\u3001\u4ee5\u4e0b\u306e\u30aa\u30d7\u30b7\u30e7\u30f3\u3092\u4f7f\u3046\u3002<\/p>\n\n\n\n
xlab=\"Label of X Asis\"<\/code><\/p>\n\n\n\n
ylab=\"Label of Y Axis\"<\/code><\/p>\n\n\n\n
\u4f8b\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3002<\/p>\n\n\n\n
boxplot<\/span>(<\/span>bwt~<\/span>smoke,<\/span> data=<\/span>birthwt,<\/span> xlab=<\/span>\"Smoking\"<\/span>,<\/span> ylab=<\/span>\"Birth Weight\"<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u8ef8\u306e\u5024\u30e9\u30d9\u30eb\u3092\u6d88\u3059<\/h2>\n\n\n\n
xaxt=\"n\"<\/code><\/p>\n\n\n\n
yaxt=\"n\"<\/code><\/p>\n\n\n\n
X\u8ef8\u307e\u305f\u306fY\u8ef8\u306e\u30bf\u30a4\u30d7(X or Y AXis Type)\u3092\u6307\u5b9a\u3059\u308b\u3002”n”\u306f\u3001\u8868\u793a\u3055\u305b\u306a\u304f\u3059\u308b\u6307\u793a\u3002\u5024\u30e9\u30d9\u30eb\u3092\u4ed8\u3051\u76f4\u3057\u305f\u3044\u3068\u304d\u306b\u6709\u7528\u3002<\/p>\n\n\n\n
\u4f8b\uff1a<\/p>\n\n\n\n
boxplot<\/span>(<\/span>bwt~<\/span>smoke,<\/span>xaxt=<\/span>\"n\"<\/span>,<\/span>data=<\/span>birthwt)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u8ef8\u306e\u5024\u306b\u30e9\u30d9\u30eb\u3092\u3064\u3051\u308b<\/h2>\n\n\n\n
axis(1, at=, formatC())<\/code><\/p>\n\n\n\n
axis(2, at=, formatC())<\/code><\/p>\n\n\n\n
X\u8ef8\uff081\u304cX\u8ef8\u30012\u304cY\u8ef8\uff09\u306eat\u306e\u4f4d\u7f6e\u306bformatC\u306e\u30e9\u30d9\u30eb\u3092\u3064\u3051\u308b\u3002<\/p>\n\n\n\n
boxplot<\/span>(<\/span>bwt~<\/span>smoke,<\/span>xaxt=<\/span>\"n\"<\/span>,<\/span>data=<\/span>birthwt)<\/span>\naxis<\/span>(<\/span>1<\/span>,<\/span>at=<\/span>c<\/span>(<\/span>1<\/span>,<\/span>2<\/span>),<\/span>formatC<\/span>(<\/span>c<\/span>(<\/span>\"non-smokers\"<\/span>,<\/span>\"smokers\"<\/span>)))<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u8ef8\u306e\u76ee\u76db\u308a\u3092\u5909\u3048\u308b<\/h2>\n\n\n\n
Y\u8ef8\u306e\u76ee\u76db\u308a\u3092\u5909\u3048\u305f\u3044\u3068\u304d\u3002<\/p>\n\n\n\n
yaxp=c(\u6700\u521d,\u6700\u5f8c,\u533a\u9593\u6570)<\/code><\/p>\n\n\n\n
X\u8ef8\u306e\u5834\u5408\u306fxaxp=c()<\/code><\/p>\n\n\n\n
r3 <-<\/span> 0.144<\/span>\nr4 <-<\/span> 0.199<\/span>\nx <-<\/span> seq <\/span>(<\/span>0<\/span>:<\/span>500<\/span>)<\/span> \/<\/span> 100<\/span>\ny3 <-<\/span> (<\/span>1<\/span>-<\/span>r3)<\/span>^<\/span>x\ny4 <-<\/span> (<\/span>1<\/span>-<\/span>r4)<\/span>^<\/span>x\nplot<\/span>(<\/span>x,<\/span>y3,<\/span>ylim=<\/span>c<\/span>(<\/span>0<\/span>,<\/span>1<\/span>),<\/span>las=<\/span>1<\/span>,<\/span>xlab=<\/span>\"Time(years)\"<\/span>,<\/span>ylab=<\/span>\"Survival Rate\"<\/span>,<\/span>type=<\/span>\"l\"<\/span>,<\/span>lwd=<\/span>2<\/span>,<\/span>col=<\/span>3<\/span>)<\/span>\nlines<\/span>(<\/span>x,<\/span>y4,<\/span>lwd=<\/span>2<\/span>,<\/span>col=<\/span>4<\/span>)<\/span>\nabline<\/span>(<\/span>h=<\/span>0.5<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
Y\u8ef8\u306e\u30e1\u30e2\u30ea\u30920.1\u523b\u307f\u306b\u5909\u66f4\u3057\u305f\u3044\u5834\u5408\u3001\u4ee5\u4e0b\u306e\u3068\u304a\u308a\u3002<\/p>\n\n\n\n
plot<\/span>(<\/span>x,<\/span>y3,<\/span>ylim=<\/span>c<\/span>(<\/span>0<\/span>,<\/span>1<\/span>),<\/span>las=<\/span>1<\/span>,<\/span>xlab=<\/span>\"Time(years)\"<\/span>,<\/span>ylab=<\/span>\"Survival Rate\"<\/span>,<\/span>type=<\/span>\"l\"<\/span>,<\/span>lwd=<\/span>2<\/span>,<\/span>col=<\/span>3<\/span>,<\/span>yaxp=<\/span>c<\/span>(<\/span>0<\/span>,<\/span>1<\/span>,<\/span>10<\/span>))<\/span>\nlines<\/span>(<\/span>x,<\/span>y4,<\/span>lwd=<\/span>2<\/span>,<\/span>col=<\/span>4<\/span>)<\/span>\nabline<\/span>(<\/span>h=<\/span>0.5<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u53c2\u8003\u30b5\u30a4\u30c8<\/h3>\n\n\n\n
http:\/\/tips-r.blogspot.jp\/2014\/09\/r.html<\/a><\/p>\n\n\n\n
\u68d2\u30b0\u30e9\u30d5\u306b\u5272\u5408\u306e\u5024\u3092\u66f8\u304d\u5165\u308c\u308b<\/h2>\n\n\n\n
\u5272\u5408\u3092\u68d2\u30b0\u30e9\u30d5\uff08barplot\uff09\u306b\u3059\u308b\u3002Y\u8ef8\u306e\u7bc4\u56f2\u30920%\u304b\u308935%\u307e\u3067\u306b\u3057\u3066\u304a\u304f\u3002<\/p>\n\n\n\n
tab <-<\/span> matrix<\/span>(<\/span>c<\/span>(<\/span>1000<\/span>,<\/span>900<\/span>,<\/span>800<\/span>,<\/span>700<\/span>,<\/span>0<\/span>,<\/span>100<\/span>,<\/span>200<\/span>,<\/span>300<\/span>),<\/span>nr=<\/span>4<\/span>)<\/span>\ncolnames<\/span>(<\/span>tab)<\/span> <-<\/span> c<\/span>(<\/span>\"no\"<\/span>,<\/span>\"yes\"<\/span>)<\/span>\nrownames<\/span>(<\/span>tab)<\/span> <-<\/span> c<\/span>(<\/span>paste<\/span>(<\/span>\"Q\"<\/span>,<\/span>1<\/span>:<\/span>4<\/span>,<\/span>sep=<\/span>\"\"<\/span>))<\/span>\ntab.prop <-<\/span> (<\/span>prop.table<\/span>(<\/span>tab,<\/span>1<\/span>)<\/span>*<\/span>100<\/span>)[,<\/span>2<\/span>]<\/span>\nbarp <-<\/span> barplot<\/span>(<\/span>tab.prop,<\/span> ylim=<\/span>c<\/span>(<\/span>0<\/span>,<\/span>35<\/span>))<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u5272\u5408\u306e\u5024\u3092\u8cbc\u308a\u4ed8\u3051\u308b\u3002X\u5ea7\u6a19\u304cbarp\uff08\u68d2\u306e\u4e2d\u5fc3\u306eX\u5ea7\u6a19\uff09\u3001Y\u5ea7\u6a19\u304ctab.prop\uff08\u5272\u5408\u306e\u5024\uff09\u3001\u305d\u3053\u306b\u5272\u5408\uff0b”%”\u3092\u8cbc\u308a\u4ed8\u3051\u308b\u3002adj=c(0.5,-0.5)\u3067\u4f4d\u7f6e\u3092\u8abf\u6574\u3002<\/p>\n\n\n\n
text<\/span>(<\/span>barp,<\/span> tab.prop,<\/span> paste<\/span>(<\/span>tab.prop,<\/span>\"%\"<\/span>,<\/span>sep=<\/span>\"\"<\/span>),<\/span> adj=<\/span>c<\/span>(<\/span>0.5<\/span>,<\/span>-<\/span>0.5<\/span>))<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u53c2\u8003\u66f8\u7c4d<\/h3>\n\n\n\n
\u4e2d\u6fa4\u6e2f\u8457\u3000R\u306b\u3088\u308b\u4fdd\u5065\u533b\u7642\u30c7\u30fc\u30bf\u89e3\u6790\u6f14\u7fd2\u3000\u30d4\u30a2\u30bd\u30f3\u30a8\u30c7\u30e5\u30b1\u30fc\u30b7\u30e7\u30f3
2.7.1 \u5ea6\u6570\u5206\u5e03\u56f3 p.21<\/p>\n\n\n\n
\"R\u306b\u3088\u308b\u4fdd\u5065\u533b\u7642\u30c7\u30fc\u30bf\u89e3\u6790\u6f14\u7fd2<\/a><\/figure>\n\n\n\n
<\/div>\n\n\n\n
\n
R\u306b\u3088\u308b\u4fdd\u5065\u533b\u7642\u30c7\u30fc\u30bf\u89e3\u6790\u6f14\u7fd2 (Computer in Education and Research)<\/a><\/p>\n