diff --git a/panels/dataInput.R b/panels/dataInput.R
index aee7f1d1bbcf363bb8cbba6a79601bfd7a7c8db8..b448f1b90482eaf5b2e74d7dca9bd452b0c4fa8f 100644
--- a/panels/dataInput.R
+++ b/panels/dataInput.R
@@ -385,8 +385,8 @@ plotDownload <- function() {
     title = "Download last modified plot",
     size = "s",
     textInput("plotName", "File name : ", value = "plot"),
-    numericInput("plotWidth", "Width : ", value = 7),
-    numericInput("plotHeight", "Height : ", value = 7),
+    numericInput("plotWidth", "Width (cm) : ", value = 7),
+    numericInput("plotHeight", "Height (cm) : ", value = 7),
     numericInput("plotDPI", "DPI : ", value = 300),
     radioButtons("plotFormat", "File format : ", choices = c("png", "pdf", "jpeg", "svg", "wmf"), selected = "png", inline = TRUE),
     footer = tagList(modalButton("Cancel"),
@@ -397,7 +397,7 @@ plotDownload <- function() {
 
 output$okPlot <- downloadHandler(
   filename = function() {paste(input$plotName, input$plotFormat, sep = ".")},
-  content = function(file) {ggsave(file, width = input$plotWidth, height = input$plotHeight, dpi = input$plotDPI)}
+  content = function(file) {ggsave(file, width = input$plotWidth, height = input$plotHeight, dpi = input$plotDPI, units = "cm")}
 )
 
 # output$rarefactionMin <- renderText({