Я преобразовал ваши данные
data <- read_table2("No Country.Name Country.Code Birth.rate Internet.users Income.Group
1 Aruba ABW 10.244 78.9 High_income
2 Afghanistan AFG 35.253 5.9 Low_income
3 Angola AGO 45.985 19.1 Upper_middle_income
4 Albania ALB 12.877 57.2 Upper_middle_income
5 United_Arab_Emirates ARE 11.044 88.0 High_income
6 Argentina ARG 17.716 59.9 High_income")
Ваш вопрос - просто опечатка, так как R чувствителен к регистру. Попробуйте
qplot(data = demo, y = Birth.rate, x = Internet.users)
вместо
qplot(data = demo, y = birth.rate, x = Internet.Users)