diff --git a/icons/R.xpm b/icons/R.xpm
new file mode 100644
index 0000000..c775643
--- /dev/null
+++ b/icons/R.xpm
@@ -0,0 +1,140 @@
+/* XPM */
+static char * C:\tmp\R_xpm[] = {
+"16 16 121 2",
+"  	c None",
+". 	c #CCDAE9",
+"+ 	c #A5C9F0",
+"@ 	c #B1DAF4",
+"# 	c #B0D9F4",
+"$ 	c #9BC7E4",
+"% 	c #8EB7EA",
+"& 	c #8F9EE3",
+"* 	c #534AD1",
+"= 	c #5552D1",
+"- 	c #544FD2",
+"; 	c #514ED2",
+"> 	c #504ED2",
+", 	c #504CD3",
+"' 	c #6D82D4",
+") 	c #8EA8E3",
+"! 	c #4A76D4",
+"~ 	c #0053D4",
+"{ 	c #1F3EE0",
+"] 	c #6693E0",
+"^ 	c #7D9CE1",
+"/ 	c #7A9CE1",
+"( 	c #889CE1",
+"_ 	c #6B80DC",
+": 	c #2854D2",
+"< 	c #586AD4",
+"[ 	c #80A7E3",
+"} 	c #5A82D4",
+"| 	c #2265D3",
+"1 	c #B1D8EB",
+"2 	c #0000FF",
+"3 	c #526ED0",
+"4 	c #A66FEA",
+"5 	c #4079D2",
+"6 	c #5573D4",
+"7 	c #2365D4",
+"8 	c #93BCDE",
+"9 	c #001B9D",
+"0 	c #4589DB",
+"a 	c #6273D4",
+"b 	c #6972D3",
+"c 	c #2164D3",
+"d 	c #95BEDE",
+"e 	c #001AA5",
+"f 	c #6681DC",
+"g 	c #5170D1",
+"h 	c #7E9CE4",
+"i 	c #96C1DD",
+"j 	c #3861D9",
+"k 	c #8BA7E3",
+"l 	c #6C8BD4",
+"m 	c #2468D4",
+"n 	c #6071D4",
+"o 	c #3E5DD3",
+"p 	c #A1BDE0",
+"q 	c #CFDFEC",
+"r 	c #C4DDF3",
+"s 	c #AAC4E9",
+"t 	c #4153E6",
+"u 	c #507CE6",
+"v 	c #A5BCF1",
+"w 	c #002BB1",
+"x 	c #7693DB",
+"y 	c #688FE3",
+"z 	c #69A0DF",
+"A 	c #6AA1E1",
+"B 	c #245FD0",
+"C 	c #1C20E0",
+"D 	c #8CB5EB",
+"E 	c #3B63C5",
+"F 	c #001EA3",
+"G 	c #A4CBEB",
+"H 	c #5F8ADB",
+"I 	c #6993E0",
+"J 	c #7798D1",
+"K 	c #91B9E8",
+"L 	c #001D91",
+"M 	c #81A7E3",
+"N 	c #9EC6E6",
+"O 	c #0015A0",
+"P 	c #3252D6",
+"Q 	c #607FD3",
+"R 	c #4E7AD7",
+"S 	c #73A7E3",
+"T 	c #5C82D4",
+"U 	c #0018A3",
+"V 	c #0623D4",
+"W 	c #5C6DD4",
+"X 	c #2B57D4",
+"Y 	c #5884D4",
+"Z 	c #749CE3",
+"` 	c #5C83D4",
+" .	c #3556D4",
+"..	c #5676D4",
+"+.	c #5876D4",
+"@.	c #152ED4",
+"#.	c #749BE3",
+"$.	c #5C84D4",
+"%.	c #1E62D3",
+"&.	c #93BDDE",
+"*.	c #0632D4",
+"=.	c #5B86D4",
+"-.	c #527CD3",
+";.	c #4F7CD4",
+">.	c #0007D7",
+",.	c #83ACE4",
+"'.	c #6668D4",
+").	c #89B0E5",
+"!.	c #BEE1FB",
+"~.	c #0014A4",
+"{.	c #255CD3",
+"].	c #A4C7F0",
+"^.	c #96BDE6",
+"/.	c #1D2FCA",
+"(.	c #5077CA",
+"_.	c #0D3ED7",
+":.	c #0018BB",
+"<.	c #0015A4",
+"[.	c #00159E",
+"}.	c #0015A1",
+"|.	c #0028A5",
+"  . + @ # # # # # # $           ",
+"  % & * = - ; ; > > , '         ",
+"  ) ! ~ { ] ^ / ( ( _ : <       ",
+"  [ } | 1 2 2 2 2 2 3 4 5 6     ",
+"  [ } 7 8 9           0 a b     ",
+"  [ } c d e           f g h     ",
+"  [ } c i             j k l     ",
+"  [ } m n o p q r s t u v w     ",
+"  [ } m x y z A B C D E F       ",
+"  [ } c G H 2 2 I J K L         ",
+"  M } c N O       P Q R         ",
+"  S T 7 d U       V W X Y       ",
+"  Z ` 7 d U          ...+.@.    ",
+"  #.$.%.&.U         *.=.-.;.>.  ",
+"  ,.'.).!.~.          {.].^./.  ",
+"  (._.:.<.              [.}.|.  "};
diff --git a/mode-icons.el b/mode-icons.el
index 6087acf..10d40ec 100644
--- a/mode-icons.el
+++ b/mode-icons.el
@@ -58,6 +58,8 @@ absolute path to ICON."
     ("Projectile Rails Server" "rails" xpm)
     ("Python" "python" xpm)
     ("Ruby" "ruby" xpm)
+    ("ESS[S]" "R" xpm)
+    ("iESS" "R" xpm)
     ("SCSS" "sass" xpm)
     ("Sass" "sass" xpm)
     ("Scheme" "scheme" xpm)