library(ggplot2)

# Create data
data <- data.frame(
  Animal = c("Rhino", "Giraffe", "Lion"),
  Weight = c(3000, 1200, 250)
)

# Reorder Animal factor by Weight descending
data$Animal <- factor(data$Animal, levels = data$Animal[order(-data$Weight)])

# Column chart 
ggplot(data, aes(x = Animal, y = Weight)) +
  geom_bar(stat = "identity", fill = "#D44803") +
  geom_text(aes(label = Weight), vjust = 1.2, size = 6) +
  labs(title = "Column Graph: Animal Weights with PikBioStat", x = "Animal", y = "Weight (kg)") +
  theme_minimal() +
  theme(panel.grid = element_blank())  

# Bar chart 
ggplot(data, aes(x = Weight, y = Animal)) +
  geom_bar(stat = "identity", fill = "#D44803") +
  geom_text(aes(label = Weight), hjust = 0.8, size = 6) +
  labs(title = "Bar Graph: Animal Weights with PikBioStat", x = "Weight (kg)", y = "Animal") +
  theme_minimal() +
  theme(panel.grid = element_blank())