使用ggplot2包中的geom_bar()函数实现条形图，并使用scale_fill_manual()函数来定义颜色。具体代码如下：

library(ggplot2)

# 创建数据集
df <- data.frame(
  group = c("A", "B", "C", "D", "E"),
  value = c(25, 20, 10, 15, 30)
)

# 定义颜色向量
colors <- c("red", "green", "blue", "orange", "purple")

# 绘制条形图
ggplot(df, aes(x = group, y = value, fill = group)) + 
  geom_bar(stat = "identity") + 
  # 使用scale_fill_manual()函数定义颜色
  scale_fill_manual(values = colors) +
  labs(title = "Bar Chart",
       x = "Group",
       y = "Value") +
  theme_minimal()

运行上述代码，将生成一张具有自定义颜色的条形图。可以根据需要修改colors向量中的颜色值以更改条形图的颜色。