Archivo:Number of Individuals in the UK by Total PreTax Income.png
Tamaño de esta previsualización: 800 × 400 píxeles. Otras resoluciones: 320 × 160 píxeles · 640 × 320 píxeles · 1024 × 512 píxeles · 1280 × 640 píxeles · 2560 × 1280 píxeles · 5000 × 2500 píxeles.
Ver la imagen en su resolución original (5000 × 2500 píxeles; tamaño de archivo: 127 kB; tipo MIME: image/png)
Resumen
| Descripción |
English: Number of Individuals in the UK by Total PreTax Income 2012/13
Data from https://www.gov.uk/government/statistics/income-and-deductions-2010-to-2011 |
| Fecha | |
| Fuente | Trabajo propio |
| Autor | D Wells |
Licencia
Yo, el titular de los derechos de autor de esta obra, la publico en los términos de la siguiente licencia:
Este archivo está disponible bajo la licencia Creative Commons Attribution-Share Alike 4.0 International.
- Eres libre:
- de compartir – de copiar, distribuir y transmitir el trabajo
- de remezclar – de adaptar el trabajo
- Bajo las siguientes condiciones:
- atribución – Debes otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si realizaste algún cambio. Puedes hacerlo de cualquier manera razonable pero no de manera que sugiera que el licenciante te respalda a ti o al uso que hagas del trabajo.
- compartir igual – En caso de mezclar, transformar o modificar este trabajo, deberás distribuir el trabajo resultante bajo la misma licencia o una compatible como el original.
Source code
IncomeCount <- structure(list(IncomeRange = structure(1:14, .Label = c("8-10",
"10-12", "12-15", "15-20", "20-30", "30-50", "50-70", "70-100",
"100-150", "150-200", "200-300", "300-500", "500-1000", "1000+"
), class = c("ordered", "factor")), Individuals = c(1960000L,
2640000L, 4050000L, 5700000L, 7210000L, 6080000L, 1500000L, 746000L,
394000L, 135000L, 88000L, 46000L, 24000L, 11000L)), .Names = c("IncomeRange",
"Individuals"), row.names = c(NA, -14L), class = "data.frame")
library(ggplot2)
library(scales)
#Order Factors
IncomeCount$IncomeRange <- factor(IncomeCount$IncomeRange,levels=c("8-10","10-12","12-15","15-20","20-30","30-50","50-70","70-100","100-150","150-200","200-300","300-500","500-1000","1000+"),ordered=TRUE)
ggplot(data=IncomeCount,aes(x=IncomeRange, y=Individuals)) + geom_bar(stat="identity") + labs(x="Annual Income Range Before Deductions (£'000)", y="Number of Individuals", title="Number of Individuals by Income") + theme_minimal() + theme(axis.line = element_line(size = 0.5, linetype = "solid",colour = "black")) + scale_y_continuous(breaks=c(seq(from=0,to=7400000,by=1000000)),labels=comma)
ggsave(file="IncomeCount.pdf", width=10, height=5)
Historial del archivo
Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.
| Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
|---|---|---|---|---|---|
| actual | 20:14 26 sep 2016 | | 5000 × 2500 (127 kB) | Cmdrjameson | Compressed with pngout. Reduced by 226kB (63% decrease). |
| 22:31 15 sep 2015 |  | 5000 × 2500 (353 kB) | D Wells | Add spacing between bars due to non equal sizes of X axis category | |
| 16:55 12 sep 2015 |  | 5000 × 2500 (352 kB) | D Wells | User created page with UploadWizard |
Usos del archivo
La siguiente página usa este archivo:
Uso global del archivo
Las wikis siguientes utilizan este archivo:
- Uso en en.wikipedia.org
