Suggested Output for UQR Results

UQR

library(shape)

size <- c(-0.1391223,   0.4472143,  0.4901896,  1.515144,   2.279545,   3.199916,   3.028821,   2.426419,   -1.256933,
          0.5647541,    2.073894,   4.591678,   4.766286,   4.92188,    4.834937,   6.089835,   1.987751,   -1.187356,
          1.500955, 13.08571,   2.565498,   3.748919,   1.768473,   -0.584059,  -4.900578,  -9.226368,  -21.73294
)

size1 = floor(abs(size*8))

size2 = ceiling(sqrt(size1))

## field plot for quantiles:

par(mfrow=c(1,1)) 
par(mar = c(4, 6, 1.5, 1))
par(xpd=NA)
plot(NA,NA, xlim=c(0,1), ylim=c(0,5), xlab = "Quantiles", ylab = "", main = "Quantile Effects of Education, Japan", yaxt='n')

# add lines

segments(0, 1, 1, 1,lty=2)
segments(0, 2, 1, 2,lty=2)
segments(0, 3, 1, 3,lty=2)

segments(0.2, 0, 0.2, 4,lty=2)
segments(0.4, 0, 0.4, 4,lty=2)
segments(0.6, 0, 0.6, 4,lty=2)
segments(0.8, 0, 0.8, 4,lty=2)


arrows(0.13,1,0.07,1,code = 2, lwd=size2[1])
arrows(0.17,1,0.23,1,code = 2, lwd=size2[2], col = "red")
arrows(0.27,1,0.33,1,code = 2, lwd=size2[3], col = "red")
arrows(0.37,1,0.43,1,code = 2, lwd=size2[4], col = "red")
arrows(0.47,1,0.53,1,code = 2, lwd=size2[5], col = "red")
arrows(0.57,1,0.63,1,code = 2, lwd=size2[6], col = "red")
arrows(0.67,1,0.73,1,code = 2, lwd=size2[7], col = "red")
arrows(0.77,1,0.83,1,code = 2, lwd=size2[8], col = "red")
arrows(0.93,1,0.87,1,code = 2, lwd=size2[9])


arrows(0.07,2,0.13,2,code = 2, lwd=size2[10], col = "red")
arrows(0.17,2,0.23,2,code = 2, lwd=size2[11], col = "red")
arrows(0.27,2,0.33,2,code = 2, lwd=size2[12], col = "red")
arrows(0.37,2,0.43,2,code = 2, lwd=size2[13], col = "red")
arrows(0.47,2,0.53,2,code = 2, lwd=size2[14], col = "red")
arrows(0.57,2,0.63,2,code = 2, lwd=size2[15], col = "red")
arrows(0.67,2,0.73,2,code = 2, lwd=size2[16], col = "red")
arrows(0.77,2,0.83,2,code = 2, lwd=size2[17], col = "red")
arrows(0.93,2,0.87,2,code = 2, lwd=size2[18])


arrows(0.07,3,0.13,3,code = 2, lwd=size2[19], col = "red")
arrows(0.17,3,0.23,3,code = 2, lwd=size2[20], col = "red")
arrows(0.27,3,0.33,3,code = 2, lwd=size2[21], col = "red")
arrows(0.37,3,0.43,3,code = 2, lwd=size2[22], col = "red")
arrows(0.47,3,0.53,3,code = 2, lwd=size2[23], col = "red")
arrows(0.63,3,0.57,3,code = 2, lwd=size2[24])
arrows(0.73,3,0.67,3,code = 2, lwd=size2[25])
arrows(0.83,3,0.77,3,code = 2, lwd=size2[26])
arrows(0.93,3,0.87,3,code = 2, lwd=size2[27])

text(-0.1, 1.1, "Non-married women")
text(-0.1, 0.9, "without children")

text(-0.1, 2.1, "Married women")
text(-0.1, 1.9, "without children")

text(-0.1, 3.1, "Married women")
text(-0.1, 2.9, "with children")

Kamila Kolpashnikova