png("goodbye.png", height = 625, width = 500)
par(col = "purple")
plot(1, 1, xlim = c(0,800), ylim = c(0,1600), type = "n", bty = "n", xaxt = "n", yaxt = "n", xlab = "", ylab = "")
symbols(x = 400, y = 1200, circles = 400, add = T, lwd = 40)
lines(x = c(400, 400), y = c(900, 100), lwd = 40, lend = 1)
lines(x = c(480, 320), y = c(500, 500), lwd = 40, lend = 1)
polygon(x = c(400, 480, 400, 320, 400), y = c(-20, 200, 100, 200, -20), col = "purple", border = "purple")
polygon(x = c(450, 500, 500, 450), y = c(500, 600, 400, 500), col = "purple", border = "purple")
polygon(x = c(350, 300, 300, 350), y = c(500, 600, 400, 500), col = "purple", border = "purple")
curve(expr = 100*log(x)+250, from = 100, to = 700, add = T, lwd = 40, lend = 1)
polygon(x = c(600, 750, 720, 750, 600), y = c(900, 1100, 900, 700, 900), col = "purple", border = "purple")
symbols(x = 100, y = 620, circles = 50, add = T, lwd = 40, inches = F, bg = "purple")

dev.off()
Posted by
0

Add a comment

Rcrastinate is moving.
10 years of playback history on Last.FM: "Just sit back and listen"
3
This dance, it's like a weapon: Radiohead's and Beck's danceability, valence, popularity, and more from the LastFM and Spotify APIs
Network visualization of football transfers using the 'visNetwork' package
12
Get your tracks from the Strava API and plot them on Leaflet maps
3
Where do you run to? Map your Strava activities on static and Leaflet maps.
Substitute levels in a factor or character vector
Substitute levels in a factor or character vector
What's in the words? Comparing artists and lyrics with R.
4
Plotting GPX tracks with Shiny and Leaflet
9
Visualisation of Likert scale results
9
Troubles with cell labels in mosaic plots... and how to solve them.
3
Just plot this...
Just plot this...
Do basic R operations much faster in bash [Slightly off-topic]
Do basic R operations much faster in bash [Slightly off-topic]
Stop fiddling around with copied paths in Windows R
Stop fiddling around with copied paths in Windows R
4
Time series analysis with R: Testing stuff with NetAtmo data
5
Changing the font of R base graphic plots.
5
Stay on track: Plotting GPS tracks with R
5
Getting emotional in the absence of something: Using the Berlin Affective Word List to analyze emotional valence and arousal for nouns and adjectives.
Hyperthreading FTW? Testing parallelization performance in R.
4
Catching errors in R and trying something else
Catching errors in R and trying something else
The 'Deutsche Bahn' (German Railway Corp.) is always late!!1! Or is it? And if, why?
XML in R - A (German) tutorial / XML in R - ein Tutorial auf Deutsch
XML in R - A (German) tutorial / XML in R - ein Tutorial auf Deutsch
2
The rbinding race: for vs. do.call vs. rbind.fill
2
Funky music in funky months: Does my taste of music change over the year?
3
TeXing R tables: Save yourself a lot of typing...
Peace through Music. Country clustering using R and the last.fm API
"I don't wanna grow up": Age / value relationships for football players
The "golden age" of a football player
R-bloggers
R-bloggers
"The Dude" takes the Tarantino threshold
Fun stuff with subtitles or "The Tarantino Threshold"
Creating PDFs and websites with the "knitr" package
Creating PDFs and websites with the "knitr" package
Josh vs. himself (or: Firefly > all)
Going to the Movies...
Soccer is all about money (?) - Part 3: More plots & analyses
Soccer is all about money (?) - Part 2: Simple analyses
Soccer is all about money (?) - Part 1: Getting the Data
Soccer is all about money (?) - Part 1: Getting the Data
4
Let's go! (and Disclaimer)
Let's go! (and Disclaimer)
1
Blog Archive
Blog Archive
BlogRoll
BlogRoll
Loading
Dynamic Views theme. Powered by Blogger. Report Abuse.