I used the color aesthetic and scale_color_manual()
df=data.frame(
TIME = c(1960, 1961, 1962, 1963, 1964, 1960),
Fertility = c(3.45, 3.55, 3.43, 3.34, 3.15, 2.02),
worldpop = c(10.275, 10.5082, 10.7005, 10.9069, 11.1216, 9.983514),
Lifeexp = c(70.9, 71.2, 71, 71.1, 70.7, 68.1),
LOCATION = as.factor(c("AUS", "AUS", "AUS", "AUS", "AUS", "HUN")),
loc2 = as.factor(c("mindenki más",
"mindenki más","mindenki más","mindenki más",
"mindenki más","Magyarország"))
)
library(ggplot2)
ggplot(data=df) +
geom_point( aes(x = Lifeexp, y=Fertility, size = as.numeric(worldpop),
color=loc2),alpha=0.7) +
scale_size(range = c(4, 20)) +
scale_color_manual(values = c("mindenki más"="#52AAA7", "Magyarország"="red")) +
labs(x = "Születéskori várható életartam", y = "Termékenységi ráta") +
theme(
axis.title = element_text(
size=16
),
axis.text = element_text(
size=12
)
)

Created on 2020-04-26 by the reprex package (v0.2.1)