¤ß¤Ê¤µ¤ó¡¢Ä¶¤ªµ×¤·¤Ö¤ê¤Ç¤¹¡£¡¡Ä¹¡Á¡Á¡Á¡Á¡Á¡Á¡Á¡Á¤¤Åß̲¤«¤é¤Þ¤ÀÌܤ¬³Ð¤á¤Æ¤Ê¤¤¡¢¥ª¥¢¥·¥¹¤Ç¤¹¡£¡¡¡¡
º£Æüµ×¤·¤Ö¤ê¤Ë¡¢¥é¥ó¥Ë¥ó¥°¤â¤É¤¤·¤Æ¤¤Þ¤·¤¿¡£¡¡´À¤ò¤«¤¯¤Î¤ÏËÜÅö¤Ëµ¤»ý¤Á¤è¤¤¤Ç¤¹¤Í¡£¤½¤¦´¶¤¸¤Þ¤¹¡£¤·¤«¡Á¡Á¡Á¡Á¤·¡¢¿Í´Ö¤ÏƬ¤â¿ÈÂΤ⡢»É·ã¤·¤Ê¤¤¤È¿ê¤¨¤Þ¤¹¤Í¡£¡ÖÇÑÍѡפȡֲÃÎð¡×¤ÎÆó½Å¹¶·â¤ò²óÉü¤¹¤ë¤Î¤Ë¤Ï»þ´Ö¤¬¤«¤«¤ê¤½¤¦¤Ç¤¹¡£¤Ü¤Á¤Ü¤Á¡¢¡Ö·ò¹¯Âè1¡×¤òÌÜɸ¤Ë¡¢¥é¥ó¥Ë¥ó¥°ºÆ³«¤¹¤ë½ê¸¤Ç¤ª¤ê¤Þ¤¹¡£
¡¡Ç¯´ÖÁí·Ðµ÷Î¥¡¡¡¡6㎞
ÂνÅÁý²Ã¡¡¡¡¡¡¡¡¡¡6㎏
ºÇ¶á¤Ï¡¡¡Ö£Ò¡×¤È¤¤¤¦Åý·×¥Õ¥ê¡¼¥½¥Õ¥ÈÍ·¤Ó¤Ë»þ´Ö¤òÈñ¤ä¤·¤Æ¤Þ¤¹¡£¡¡£Ò¸À¸ì¤Ê¤ë¤â¤Î¤¬¤¢¤Ã¤Æ¡¢¤è¤¯¤ï¤«¤é¤Ê¤¤¤Ç¤¹¤¬¡Ö¥³¥Þ¥ó¥É¡×¤òÆþÎϤ¹¤ë¤È¡¢¡ÖÎý½¬¥Ç¡¼¥¿¡×¤òÍѤ¤¤Æ¡¢¥¹¥Æ¥¤Ê¥°¥é¥Õ¥£¥Ã¥¯¤¬ÉÁ¤±¤Þ¤¹¡£¡¡
£Á£î£é£í£á£ì£ó¡¡¡Ê¤µ¤Þ¤¶¤Þ¤Îưʪ¤ÎÂνŤÈÇ¾Èæ½Å¤ÎÁê´Ø
library(ggplot2)
library(gcookbook)
library(MASS)
str(Animals)
p <- ggplot(Animals,aes(x=body,y=brain,label=rownames(Animals)))+geom_text(size=3)
p
windows()
p+scale_x_log10()+scale_y_log10()
10^(0:3)
10^(-1:5)
p+scale_x_log10(breaks=10^(-1:5))+scale_y_log10(breaks=10^(1:3))
library(scales)
p+scale_x_log10(breaks=10^(-1:5),labels=trans_format("log10",math_format(10^.x)))+
scale_y_log10(breaks=10^(0:3),labels=trans_format("log10",math_format(10^.x)))
p+scale_x_log10(breaks=10^(-1:5),labels=trans_format("log10",math_format(10^.x)))+
scale_y_log10(breaks=10^(0:3),labels=trans_format("log10",math_format(10^.x)))
windows()
p <- ggplot(Animals,aes(x=body,y=brain,label=rownames(Animals)))+geom_text(size=3)
p+annotation_logticks()+
scale_x_log10(breaks=10^(-1:5),labels=trans_format("log10",math_format(10^.x)))+
scale_y_log10(breaks=10^(0:3),labels=trans_format("log10",math_format(10^.x)))
¤È¤«
£Á£Ì¤È£Î£Ì¡Ê¥ê¡¼¥°Ê̡ˤ˥°¥ë¡¼¥×²½¤·¤¿¡¢2001ǯÅÙÂç¥ê¡¼¥ÖÂÇ·âÀ®ÀӣԣϣУ²£µ
library(ggplot2)
library(gcookbook)
str(tophitters2001)
?tophitters2001
tophit <- tophitters2001[1:25,]
ggplot(tophit,aes(x=avg,y=name))+geom_point()
tophit[,c("name","lg","avg")]
ggplot(tophit,aes(x=avg,y=reorder(name,avg)))+
geom_point(size=3)+
theme_bw()+
theme(panel.grid.major.x=element_blank(),
panel.grid.minor.x=element_blank(),
panel.grid.major.y=element_line(colour="grey60",linetype="dashed"))
ggplot(tophit,aes(x=reorder(name,avg),y=avg))+
geom_point(size=3)+
theme_bw()+
theme(axis.text.x=element_text(angle=60,hjust=1),
panel.grid.major.y=element_blank(),
panel.grid.minor.y=element_blank(),
panel.grid.major.x=element_line(colour="grey60",linetype="dashed"))
nameorder <- tophit$name[order(tophit$lg,tophit$avg)]
nameorder
tophit$name <- factor(tophit$name,levels=nameorder)
tophit$name
ggplot(tophit,aes(x=avg,y=name))+
geom_segment(aes(yend=name),xend=0,colour="grey50")+
geom_point(size=3,aes(colour=lg))+
scale_colour_brewer(palette="Set1",limits=c("NL","AL"))+
theme_bw()+
theme(panel.grid.major.y=element_blank(),
legend.position=c(1,0.55),
legend.justification=c(1,0.5))
¤È¤«¡¢¥é¥ó¥Ê¡¼¤µ¤ó¸þ¤¤Ë¤³¤ó¤Ê¥°¥é¥Õ¤âÉÁ¤¤Þ¤·¤¿¡£
¥Ç¡¼¥¿¡Ê£í£á£ò£ï£ô£è£ï£î¡Ë¤«¤é
¥Þ¥é¥½¥ó¥é¥óŽÅް¤Î¥Õ¥ë¤È¥Ï¡¼¥Õ¤Î¥¿¥¤¥àÁê´Ø¿Þ¡Ë
#x¼´¤Èy¼´¤Î¥¹¥±¡¼¥ëÈæ¤òÀßÄꤹ¤ë marathon¥Ç¡¼¥¿¤è¤ê#
Full=2.304227£øHalf¡Ý6.134203
library(gcookbook)
str(marathon)
data(marathon, package="gcookbook")
sp<-ggplot(marathon,aes(x=Half,y=Full))+geom_point()
sp+coord_fixed()+
scale_y_continuous(breaks=seq(0,420,30))+
scale_x_continuous(breaks=seq(0,420,30))
sp+coord_fixed(ratio=1/2)+
scale_y_continuous(breaks=seq(0,420,30))+
scale_x_continuous(breaks=seq(0,420,15))
Îɤ¯Ê¬¤«¤Ã¤Ç̵¤¤¤Ç¤¹¤¬¡¢¤Ê¤«¤Ê¤«ÌÌÇò¤¤¤Ç¤¹¤è¡£
ÌÀÆü¤«¤é¥Ó¥Ó¥¢¥ó¤È̼¤¬4·î¤«¤é½»¤ß»Ï¤á¤¿µþÅԤ˹ԤäƤ¤Þ¤¹¡£ÊÙ¶¯¤È¾¯¤·´Ñ¸÷¤·¤Æ¤¤Þ¤¹¡£