carregando base de dados

library(readxl)
FifaData <- read_excel("C:/Users/User/Downloads/FifaData.xls")
View(FifaData)

Diagrama de disperção

plot(FifaData$Age, FifaData$Shot_Power, xlab = "Penalties", ylab = "Dribbling")

criar matriz de correlação

correlacao <- cor(FifaData[, c("Penalties", "Dribbling")])

Intepretação dos resultados

Vemos uma correlação positiva entre as duas variaveis, o número de penalties tende a subir a medida que sobe o número de dribbling, podemos enxergar esse fato na diagra de dispersão.