Is this what you required?
library(tidyverse)
etiology <- rep(x = c("HCV","HCV/Alcohol","HCV/ Hemochromatosis","Alcohol","HBV","NAFLD","NASH","Idiopathic/ Unknown"))
value <- as.numeric((x = c("12","5","1","4","1","1","7","4")))
data <- data.frame(etiology,value)
ggplot(data,aes(x=etiology, y=value))+ geom_bar(stat="identity", position = "dodge")
Although I am not sure why you would define "value" that way. I would have used:
value <- c(12,5,1,4,1,1,7,4)
...which is much simpler.
Stephen