Untitled

weight <- c(50,60,54,45,60,75,46)

high <- c(150,170,165,143,200,180,160)

plot(weight,high)

# create dummy data
data <- data.frame(
    name=letters[1:5],
  value=sample(seq(4,15),5))


# Uniform color
barplot(height=data$value, names=data$name, 
        col="#69b3a2",
        horiz=T, las=1   )