#Wykres 1
plot(sr~dpi, xlim = c(0, 5000),
xlab = 'Przychód Per-Capita',
ylab = 'Oszczednosci (zsumowane)',
main = 'Miedzynarodowe inforamcje o oszczednosciach',
data = LifeCycleSavings[1:50,])

with(LifeCycleSavings[1:50,],
 text(sr~dpi,
 labels = row.names(LifeCycleSavings[1:50,]), pos = 4))

#Wykres 2

x <- LifeCycleSavings[order(LifeCycleSavings$dpi),decreasing=T]
y <- x[31:50,]
y


values <- y$dpi
names = row.names(y)
data <- data.frame(
 name=names[1:20],
 value=values[1:20]
)

data

barplot(
height=data$value,
names=data$name,
horiz=T,
las=1 ,
xlim=c(0,4200),
ylim=c(0,20),
xlab="Przychody",
col=rainbow(20))