install.packages("pacman")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4'
## (as 'lib' is unspecified)
library("pacman")
p_load("readr", 
       "dplyr",
       "ggplot2")

Creacion de objetos

Vector1<-c("Border Colie","Schnauzer","Gran Danes","Chihuaha","Criollo")
Vector2<-c(3,9,3,4,5)
Vector3<-c(4,3.5,3,7,4.5)

Crear Dataframe

Razas_perros <-data.frame(Raza=Vector1,
                      Total_perros=Vector2,
                      Edad_promedio=Vector3)
Razas_perros
##           Raza Total_perros Edad_promedio
## 1 Border Colie            3           4.0
## 2    Schnauzer            9           3.5
## 3   Gran Danes            3           3.0
## 4     Chihuaha            4           7.0
## 5      Criollo            5           4.5

Sacar promedio

Prom_total<-mean(Razas_perros$Total_perros)
Prom_edad<-mean(Razas_perros$Edad_promedio)

Razas_perros
##           Raza Total_perros Edad_promedio
## 1 Border Colie            3           4.0
## 2    Schnauzer            9           3.5
## 3   Gran Danes            3           3.0
## 4     Chihuaha            4           7.0
## 5      Criollo            5           4.5