data/RData サブプロット

data/RData　サブプロット

RData_subplot_xy()

Examples

.<-subplot_xy
head(.)
#>        plot  x  y subplot
#> 1 Bijodaira 55 55       1
#> 2 Bijodaira 55 65       2
#> 3 Bijodaira 55 75       3
#> 4 Bijodaira 55 85       4
#> 5 Bijodaira 55 95       5
#> 6 Bijodaira 65 55       6
table(.$plot)
#> 
#>       Arimine     Bijodaira     Bunadaira      Bunazaka      Joudosan 
#>            25            25            25            28            25 
#>    Kagamiishi Kaminokodaira    Matsuotoge       Mimatsu 
#>            25            25            50            25 
plot(1:100,type="n")
i<-.$plot=="Bunazaka"
text(.$x[i],.$y[i],.$subplot[i])

RData_subplot_xy()
#> [1] "This is data !!"