diff --git a/notas.Rmd b/notas.Rmd
index 0da8b90f0b12c0538ede01829ad41e8f9839736e..a003ce98d7fbfd1d2ef8652e18690304c9abd2ac 100644
--- a/notas.Rmd
+++ b/notas.Rmd
@@ -38,6 +38,14 @@ nt <- read.xls("/home/walmes/Dropbox/Ensino/ce089-2017-02/notas.xls",
                encoding = "latin1")
 str(nt)
 
+nt$Nome <- paste(
+    sub(pattern = "^(\\w+) .*$",
+        replacement = "\\1",
+        x = nt$Nome),
+    sub(pattern = "^\\w.* (\\w+)$",
+        replacement = "\\1",
+        x = nt$Nome))
+
 #-----------------------------------------------------------------------
 # Editação da tabela.