楽しい（無駄な）Rアート、その２ - こにしき（言葉・日本社会・教育）

楽しい（無駄な）Rアート、その２ - こにしき（言葉・日本社会・教育）

楽しい（無駄な）Rアート - こにしき（言葉、日本社会、教育） ←この続編。 こころの赴くままに描いてみ...概要を表示 楽しい（無駄な）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=""

• R