الرسوم الأساسية والمقاييس الأمينة

x <- c(1, 2, 3)
y <- c(2, 5, 4)
stopifnot(length(x) == length(y), all(is.finite(x)), all(is.finite(y)))
cat("x range=", paste(range(x), collapse = ","), "\n", sep = "")
cat("y range=", paste(range(y), collapse = ","), "\n", sep = "")
# Illustrative graphics call; requires an R graphics device.
# plot(x, y, type = "p", xlab = "Step", ylab = "Synthetic score", pch = 16)

x range=1,3
y range=2,5

يفصل فحص الإحداثيات عن استدعاء الرسم المعلق؛ ولم ينفذ جهاز رسم أو شكل أثناء المراجعة.

values <- c(1, 1, 2, 4)
counts <- table(factor(values, levels = 1:4))
cat("counts=", paste(as.integer(counts), collapse = ","), "\n", sep = "")
cat("proportions=", paste(as.numeric(counts)/sum(counts), collapse = ","), "\n", sep = "")
# barplot(counts, xlab = "Synthetic category", ylab = "Count")

counts=2,1,0,1
proportions=0.5,0.25,0,0.25

تحفظ بيانات الرسم فئة صفرية وتميز العدد عن النسبة؛ واستدعاء الرسم توضيحي فقط.