compute colour names

compute colour names.r

require("plotrix")
tc <- function(x) {
return (head(color.id(x),n=1))
}
colour_list8000 = dt8000[,tc(colour),by=colour]
> head(colour_list8000, n=100
+ )
      colour          V1
  1: #FFFFFF       white
  2: #FEFEFE       white
  3: #FEFCFF       white
  4: #FBFFFF       white
  5: #F7FFFF   mintcream
  6: #FFFDFF       white
  7: #FFFBFF       white
  8: #FEFDF9        snow
  9: #FEFDFB      gray99
 10: #F6FEFF   mintcream
 11: #FFFCF5 floralwhite
 12: #FFF8FF        snow
 13: #FFFBFC        snow
 14: #FDFDFF       white
 15: #FFFDFE       white
 16: #FAFEFF      gray99
 17: #FFFEFA        snow
 18: #FEFCFD      gray99
 19: #FFFAFF      gray99
 20: #FDFEFF       white
 21: #FFFFF7        snow
 22: #F9FFFF      gray99
 23: #FFFCF9        snow
 24: #FDFDFD      gray99
 25: #FEFFFF       white
 26: #FFFAF7        snow
 27: #FEFDF8        snow
 28: #FFFBF8        snow
 29: #FFFEF9        snow
 30: #FEFEFF       white
 31: #FEFFF9      gray99
 32: #FFFEFC       white
 33: #FCFDFF      gray99
 34: #FFFCF7        snow
 35: #FFFAF4 floralwhite
 36: #FAFFFF      gray99
 37: #FEFEFC      gray99
 38: #FFFBFA        snow
 39: #FCFCFC      gray99
 40: #FFFFFD       white
 41: #F9FDFF      gray99
 42: #FEFFFA      gray99
 43: #FFF9F9        snow
 44: #FDFFFE       white
 45: #FFFAFE        snow
 46: #FFFDF6        snow
 47: #FEFEF6        snow
 48: #FFFFFB       white
 49: #272727      gray15
 50: #FDFBFE      gray99
 51: #FAFFFB      gray99
 52: #F1FFFF       azure
 53: #282828      gray16
 54: #FAFFF9      gray99
 55: #FCFCFE      gray99
 56: #FFFFF3       ivory
 57: #FBFBFB      gray98
 58: #F4FFFF       azure
 59: #3A3A3A      gray23
 60: #FFF9FD        snow
 61: #FEFAF9        snow
 62: #FDFFFC      gray99
 63: #262626      gray15
 64: #3B3B3B      gray23
 65: #FAFAFA      gray98
 66: #FCFAFF      gray99
 67: #FFFCFB        snow
 68: #292929      gray16
 69: #FBFAFF  ghostwhite
 70: #FDFDFB      gray99
 71: #F8FCFF  ghostwhite
 72: #F5FDFF       azure
 73: #252525      gray14
 74: #2A2A2A      gray16
 75: #F3FFFF       azure
 76: #FBFFFE      gray99
 77: #FAFEFD      gray99
 78: #FFFDF1       ivory
 79: #2B2B2B      gray17
 80: #FFF7F2 floralwhite
 81: #2C2C2C      gray17
 82: #393939      gray22
 83: #FBFCFF      gray99
 84: #F8FDFF  ghostwhite
 85: #FEF9F3 floralwhite
 86: #FCFBFF      gray99
 87: #242424      gray14
 88: #FEF7FF        snow
 89: #000000       black
 90: #EDFFFF       azure
 91: #FFF9FB        snow
 92: #181818       gray9
 93: #FEFEF2       ivory
 94: #F9F9F9      gray98
 95: #2D2D2D      gray18
 96: #3D3D3D      gray24
 97: #3F3F3F      gray25
 98: #4C433E      gray27
 99: #F8F8F8      gray97
100: #FEF8F8        snow

next question, how do i sort by count of V1? would that be:
x = colour_list2$V1
sort(table(x), decreasing = TRUE)

colour_list2 = dt[,tc(colour),by=colour]