As a statistician employed by a sizable farm, my boss requested that I draw something to remind him of his youth. There was one major restriction that made it difficult for me to accomplish that: I could only use R for everything. That's how I went about it. Would you kindly assist me in improving my cow drawing?

```library(ggplot2)

sim=function(xy){
xx=xy[,"x"]*(-1)
yy=xy[,"y"]
gg=xy[,"gr"]
xy=rbind(xy,cbind(xx,yy,gg))
return(as.data.frame(xy))
}

circleFun <- function(center = c(0,0),diameter = 1, npoints = 100){
r = diameter / 2
tt <- seq(0,2*pi,length.out = npoints)
xx <- center + r * cos(tt)
yy <- center + r * sin(tt)
return(data.frame(x = xx, y = yy))
}

n=100

akys <- circleFun(c(1,5),1.5,npoints = n)
akys=as.matrix(cbind(akys,gr=4))
akys=sim(akys)

akys21 <- circleFun(c(1,4.5),0.5,npoints = n)
akys21=as.matrix(cbind(akys21,gr=5))

akys22 <- circleFun(c(-1,5.3),0.7,npoints = n)
akys22=as.matrix(cbind(akys22,gr=5))

nosis=circleFun(c(0.6,1),0.6,npoints = n)
nosis=as.matrix(cbind(nosis,gr=6))
nosis=sim(nosis)

x=c(0,1,3,3,2,0,0,1,1,0,3,5,2)
y=c(0,0,4,6,7,7,0,0,2,2,6,10,7)
gr=c(2,2,2,2,2,2,3,3,3,3,1,1,1)
xy=cbind(x=x,y=y,gr=gr)

data=sim(xy)
data=rbind(data,akys,akys21,akys22,nosis)

ggplot()+geom_polygon(data=data,mapping=aes(x=x,y=y,fill=factor(gr),group=gr), linetype=0, colour="black")+theme_bw()+
scale_fill_manual(values=c("cornsilk2","chocolate4","lightpink","white","black","maroon4"))+
theme(axis.line=element_blank(),axis.ticks=element_blank(),axis.text=element_blank(),legend.position="none",panel.grid=element_blank(),panel.border=element_blank())+xlab("")+ylab("")+
ggtitle("Crazy Cow Wishing You Happy Easter!!!")```
Dec 25, 2022 in Others 48 views

## 1 answer to this question.

If you are on Linux and have cowsay installed the solution is fairly straightforward:

```> system("cowsay I quit")
________
< I quit >
--------
\   ^__^
\  (oo)\_______
(__)\       )\/\
||----w |
||     ||```
• 53,520 points

## Reducing sequences in an array of strings

I've written a C# app to solves ...READ MORE

## How can you create an object in JavaScript?

JavaScript supports Object concept very well. You can create ...READ MORE

## How can you create an Array in JavaScript?

You can define arrays using the array literal as ...READ MORE

## How to plot side-by-side Plots with ggplot2 in R?

By Using gridExtra library we can easily ...READ MORE

+1 vote

## How to change fill color in each facet using ggplot2?

You can map the facetting variable to ...READ MORE

## Changing the legend title in ggplot

Hi, you can also try guides() to ...READ MORE

## How to order bars in a bar graph using ggplot2?

The key to ordering is to set ...READ MORE