File:Paypal fee percent.png

This is the percentage taken by PayPal for a given amount someone pays us.

Code to make this graph in R:

current_rate = .027
current_fee = .30   

paypal_fee <- function( x, rate = .027, fee = .30 ) { 
	return (fee + x * rate) }
paypal_percent <- function( x, rate = .027, fee = .30 ) { 
	return paypal_fees(x, rate, fee) / x }

png(filename="paypal_fee_percent.png", width=800, height=500, pointsize=16)

plot(seq(.50,20,0.01), paypal_percent(seq(.50,20,0.01))*100, 
  ylab="% taken up by PayPal fees", xlab="Amount paid in $", main="% Taken By PayPal", 
  type="l", ylim=c(0,35), xlim=c(0,20))
axis(1, 1:20)
points(paypal_percent(1:20) * 100, pch=15)
text((1:10)+.7, (paypal_percent(1:10) * 100)+.6, 
  paste(round(paypal_percent(1:10) * 100, 1), "%"), cex=.8)

dev.off()