fun_color_range <- colorRampPalette(c("blue", "purple"))   
my_colors <- fun_color_range(100)  
  
# Plotting a graph
plot(1:100, pch = 50, col = my_colors)

fun_color_range <- colorRampPalette(c("yellow", "pink"))   
my_colors <- fun_color_range(100)  
  
# Plotting a graph
plot(100:1, pch = 100, col = my_colors)