楽しい(無駄な)Rアート - こにしき(言葉、日本社会、教育) ←この続編。
こころの赴くままに描いてみました。
完全オリジナルです。
Script
x <- runif(10000) y <- runif(10000) col1 <- ifelse( ((y-.5)^2 + (x-.5)^2 >0.3)&((y>.5)&(x<.5)), "#804000","") col2 <- ifelse( ((y-.5)^2 + (x-.5)^2 >0.3)&((y<.5)&(x>.5)) , "grey","") col3 <- ifelse( (x>0.3)&(x<0.7) , "black","") col4 <- ifelse( ((y-.85)^2 + (x-.85)^2 <0.02) , "red","") COL <- paste(col1,col2,col3,col4,sep="") COL <- ifelse(COL=="",NA,COL) plot(x,y,col=COL)