Невозможно установить col= параметр, используя par() с layout()
Я хочу проиллюстрировать R par() Команда графических параметров с несколькими графиками, поэтому я сделал простую схему 2×2, которая отлично прорисована. Я добавил один par (col = "green") команда вызвать один barplot() и три hist()ограмы, чтобы иметь зеленые полосы. Но это не сделало ничего, что я мог видеть.
Я проверял par() с несколькими другими вариантами: col.main для основных этикеток, col.axis для меток оси и bg для фона. В каждом случае установите его один раз, он отображается на всех четырех графиках. Я также установил col = в одном из четырех графиков, чтобы убедиться, что он принял тот аргумент, который он сделал. Но попробуй col =, ничего такого. Я пробовал это до и после layout() Команда, безрезультатно.
Вот мой R-скрипт, который должен быть безопасным, поскольку я сохраняю и восстанавливаю ваши графические настройки вверху и внизу. Извиняюсь за долго dput() но я хочу, чтобы у вас были данные, которые у меня есть.
savedGraphicsParams <- par(no.readonly=TRUE)
# layout four graphics
layout(matrix(c(1, 2, 3, 4), nrow=2, byrow=TRUE))
# Set global par()
par(col = "green") # doesn't work
# par(col.main = "green") # works
# par(col.axis="green") # works
# par(bg = "green") # works
attach(Lakes)
# GRAPH 1:
# plot(N_of_Fish, main="Fish", xlab = "No. of Fish") # Identical alternative to the following barplot
barplot(table(N_of_Fish), main="Fish", xlab = "No. of Fish")
# GRAPH 2:
# hist(Elevation, main = "Elevation", xlab = "ft", col="red") # works
hist(Elevation, main = "Elevation", xlab = "ft")
# GRAPH 3
hist(Surface_Area, main="Surface Area", xlab = parse(text="ft^2"))
# GRAPH 4
hist(`, main="Max Depth", xlab = "ft")
detach(Lakes)
par(savedGraphicsParams) # Reset the graphics
structure(list(Name = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L,
8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L,
21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L,
34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L,
47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L,
60L, 61L, 62L, 63L, 64L, 65L, 65L, 66L, 67L, 68L, 69L, 70L, 71L,
72L, 72L, 73L, 74L, 75L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L,
82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 91L, 90L, 90L, 92L, 93L,
94L, 95L, 96L, 97L, 98L, 99L, 100L, 101L, 102L, 103L, 104L, 105L,
106L, 107L, 108L, 109L, 110L, 111L, 112L, 113L, 114L, 115L), .Label = c("Allen.P",
"Alligator.P", "Anasagunticook.L", "Balch&Stump.Ponds", "Baskahegan.L",
"Bauneag.Beg.L", "Beaver.P", "Belden.P", "Ben.Annis.P", "Bottle.L",
"Brackett.L", "Bradbury(Barker).L", "Braird.P", "Branch.L(South)",
"Branch.P(East)", "Branch.P(Upper.Mid)", "Bubble.P", "Burden.P",
"Burnt.Meadow.P", "Burnt.P", "Cada.Falls.L", "Carlton.Bog(Pond)",
"Cedar.L", "Chain.Of.Ponds", "Chandler.L", "Chase.L", "Chase.P(First)",
"Chub.P", "Churchill.L", "Cobbosseecontee.L", "Cross.L", "Crystal(Beals).P",
"Damariscotta.L", "Debsconeag.L(4Th)", "Dimmick.P(Little)", "Duck.L",
"Eagle.L", "East.P", "Embden.P", "Fields.P", "Fish.P", "Fisher.P(Big)",
"Flying.P", "Folsom.P", "Forest.L", "Graham.L", "Grand.L(West)",
"Granger.P", "Greenwood.P(Little)", "Hay.L", "Hicks.P", "Hodgdon.P",
"Horseshoe.L", "Hosmer.P", "Indian.P(Big)", "Jacob.Buck.P", "Jerry.P",
"Jump.P", "Keene.L", "Keewaydin.L", "Kingsbury.P", "Knight.P",
"Lambert.L", "Lily.P", "Long.P", "Lovewell.P", "Machias.L(Fourth)",
"Meddybemps.L", "Molunkus.L", "Mooseleuk.L", "Nequasset.P", "North.P",
"Orange.L", "Ossipee.L(Little)", "Otter.P", "Passagassawaukeag.L",
"Pattee.P", "Pease.P", "Pennington.P", "Pine.P(Big)", "Pitcher.P",
"Pleasant.L", "Pleasant.P", "Portland.L", "Purgatory.P(Little)",
"Range.P(Lower)", "Roach.P(Second)", "Roberts&Wadley.Pds", "Rocky.P",
"Round.P", "Round(Grey).P", "Rowe.P", "Sandy.River.P(Lower)",
"Sandy.River.P(Mid)", "Second.L", "Sennebec.P", "Sewall.P", "Shin.P(Lower)",
"Sly.Brook.L(Second)", "Spencer.P", "Squaw.P(Big)", "Sunday.P",
"Symmes.P", "Third.L", "Togue.P", "Togus.P", "Travel.P", "Umbagog.L",
"Umcolcus.L", "Varnum.P", "Wadleigh.P", "Webber.P", "Weymouth.P",
"Wight.P", "Wood.P(Little.Big)"), class = "factor"), Mercury = c(1.08,
0.025, 0.57, 0.77, 0.79, 0.75, 0.27, 0.66, 0.18, 1.05, 0.31,
0.81, 0.23, 0.58, 0.57, 0.43, 0.1, 0.49, 0.77, 0.41, 0.79, 0.29,
0.91, 0.91, 0.25, 0.43, 0.13, 0.18, 0.26, 0.29, 0.39, 0.41, 0.21,
0.43, 0.05, 0.22, 0.44, 0.94, 0.57, 0.96, 0.36, 0.36, 0.35, 0.71,
1.22, 0.71, 0.28, 0.73, 0.24, 0.24, 0.9, 2.5, 0.8, 0.071, 0.09,
0.77, 0.62, 0.43, 0.35, 0.89, 0.34, 0.28, 0.45, 0.37, 0.21, 0.4,
0.45, 1.12, 0.32, 1.12, 0.48, 0.37, 0.54, 0.62, 0.86, 0.77, 0.16,
0.13, 0.55, 0.38, 0.36, 0.08, 0.67, 0.67, 0.48, 0.41, 0.6, 0.56,
0.23, 1.25, 0.22, 0.52, 0.68, 0.51, 0.44, 0.57, 0.22, 0.1, 0.37,
0.58, 0.41, 0.19, 0.47, 0.37, 0.14, 0.26, 0.41, 0.18, 0.36, 0.11,
0.12, 0.82, 0.29, 0.43, 0.16, 0.41, 0.18, 0.19, 0.49, 0.25),
N_of_Fish = c(3L, 2L, 5L, 5L, 5L, 4L, 5L, 3L, 5L, 5L, 5L,
2L, 5L, 5L, 5L, 3L, 2L, 5L, 5L, 5L, 4L, 5L, 4L, 5L, 5L, 5L,
2L, 5L, 5L, 5L, 5L, 5L, 4L, 2L, 4L, 5L, 5L, 4L, 3L, 5L, 3L,
5L, 4L, 5L, 5L, 3L, 2L, 5L, 3L, 2L, 5L, 4L, 3L, 3L, 4L, 4L,
5L, 5L, 3L, 2L, 5L, 5L, 5L, 5L, 4L, 5L, 5L, 5L, 5L, 5L, 5L,
3L, 5L, 4L, 5L, 3L, 4L, 3L, 5L, 5L, 5L, 2L, 1L, 5L, 5L, 5L,
5L, 5L, 5L, 3L, 5L, 5L, 5L, 4L, 5L, 1L, 5L, 3L, 5L, 5L, 3L,
5L, 5L, 5L, 3L, 5L, 5L, 5L, 2L, 5L, 5L, 4L, 5L, 4L, 5L, 5L,
4L, 5L, 5L, 5L), Elevation = c(425L, 1494L, 402L, 557L, 417L,
205L, 397L, 350L, 122L, 298L, 446L, 449L, 270L, 227L, 910L,
341L, 331L, 639L, 374L, 328L, 1235L, 203L, 500L, 1273L, 824L,
819L, 995L, 1095L, 922L, 165L, 578L, 328L, 54L, 634L, 1390L,
519L, 574L, 263L, 416L, 109L, 1503L, 1150L, 345L, 221L, 276L,
102L, 298L, 524L, 683L, 653L, 683L, 50L, 454L, 212L, 1209L,
205L, 717L, 312L, 195L, 676L, 929L, 101L, 419L, 146L, 1157L,
390L, 357L, 311L, 170L, 354L, 846L, 17L, 487L, 510L, 76L,
311L, 1373L, 1633L, 304L, 141L, 377L, 904L, 1097L, 204L,
232L, 319L, 362L, 446L, 177L, 306L, 1271L, 271L, 312L, 269L,
474L, 34L, 1203L, 1690L, 1700L, 247L, 87L, 15L, 778L, 637L,
1045L, 1486L, 1409L, 499L, 751L, 1189L, 180L, 204L, 1245L,
882L, 756L, 913L, 118L, 296L, 67L, 1244L), Surface_Area = c(83L,
47L, 568L, 704L, 6944L, 200L, 128L, 24L, 25L, 281L, 576L,
38L, 20L, 2035L, 45L, 467L, 32L, 197L, 63L, 315L, 2627L,
430L, 685L, 700L, 401L, 403L, 12L, 24L, 2923L, 5543L, 2515L,
47L, 4381L, 227L, 41L, 1222L, 5581L, 1823L, 1568L, 182L,
211L, 60L, 360L, 282L, 210L, 7865L, 14340L, 126L, 61L, 588L,
93L, 35L, 202L, 53L, 280L, 190L, 272L, 29L, 115L, 307L, 390L,
49L, 605L, 44L, 3053L, 271L, 1120L, 1539L, 6765L, 1050L,
422L, 392L, 175L, 164L, 234L, 564L, 30L, 14L, 118L, 712L,
109L, 45L, 164L, 367L, 339L, 1574L, 239L, 41L, 44L, 290L,
970L, 203L, 153L, 134L, 161L, 250L, 205L, 17L, 70L, 102L,
532L, 46L, 638L, 13L, 980L, 91L, 30L, 36L, 474L, 388L, 660L,
102L, 7850L, 630L, 331L, 225L, 1201L, 87L, 135L, 713L), Maximum_Depth = c(27L,
26L, 54L, 44L, 22L, 29L, 8L, 30L, 9L, 42L, 25L, 45L, 13L,
28L, 9L, 55L, 39L, 32L, 45L, 27L, 24L, 8L, 25L, 106L, 19L,
31L, 37L, 19L, 62L, 100L, 46L, 39L, 114L, 150L, 14L, 88L,
136L, 27L, 158L, 31L, 58L, 11L, 80L, 19L, 38L, 47L, 128L,
28L, 38L, 34L, 18L, 22L, 20L, 16L, 68L, 52L, 13L, 42L, 37L,
52L, 62L, 18L, 60L, 30L, 44L, 36L, 45L, 26L, 38L, 38L, 6L,
63L, 10L, 50L, 24L, 74L, 8L, 18L, 40L, 27L, 19L, 5L, 33L,
38L, 36L, 92L, 15L, 53L, 20L, 41L, 46L, 22L, 14L, 30L, 32L,
34L, 43L, 21L, 58L, NA, 57L, 11L, 25L, 21L, 16L, 96L, 50L,
30L, 37L, 85L, 49L, 6L, 48L, 17L, 75L, 90L, 41L, 15L, 21L,
80L), Lake_Type = structure(c(3L, 2L, 2L, 2L, 2L, 2L, 3L,
3L, 2L, 2L, 2L, 4L, 2L, 2L, 2L, 4L, 3L, 3L, 2L, 3L, 2L, 2L,
2L, 4L, 2L, 3L, 4L, 2L, 4L, 2L, 3L, 3L, 3L, 4L, 2L, 4L, 4L,
2L, 4L, 2L, 4L, 2L, 3L, 2L, 2L, 2L, 4L, 3L, 4L, 3L, 3L, 2L,
2L, 3L, 4L, 4L, 3L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 2L,
3L, 2L, 2L, 2L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 3L, 2L, 2L, 2L,
3L, 3L, 3L, 4L, 3L, 3L, 2L, 2L, 3L, 3L, 2L, 2L, 3L, 2L, 3L,
2L, 3L, 1L, 3L, 2L, 3L, 3L, 3L, 4L, 3L, 2L, 4L, 4L, 2L, 2L,
2L, 2L, 4L, 4L, 2L, 2L, 3L, 4L), .Label = c("", "Eutropic",
"Mesotropic", "Oligotropic"), class = "factor"), Stratification = structure(c(3L,
2L, 3L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 3L,
2L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 2L,
3L, 3L, 3L, 2L, 3L, 3L, 1L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 2L,
3L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 3L,
2L, 3L, 3L, 2L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L,
2L, 2L, 3L, 2L, 2L, 2L, 3L, 2L, 3L, 3L, 2L, 3L, 2L, 3L, 2L,
2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 3L, 2L, 2L, 3L, 2L, 3L,
3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 3L, 3L, 3L, 2L, 3L, 3L), .Label = c("",
"No", "Yes"), class = "factor"), Drainage_Area = c(2L, 1L,
15L, 14L, 123L, 18L, 2L, 1L, 10L, 8L, 7L, 17L, 2L, 12L, 2L,
4L, 1L, 17L, 4L, NA, 182L, 23L, 5L, 65L, 5L, 47L, 4L, 0L,
298L, 131L, 164L, 1L, 57L, 6L, 4L, 6L, 762L, NA, 22L, 3L,
6L, 1L, 15L, 14L, 3L, 499L, 226L, 1L, 1L, 6L, 10L, 1L, 2L,
2L, 5L, 3L, 4L, 1L, 1L, 9L, 13L, 0L, 6L, 0L, 558L, 3L, 9L,
66L, 45L, 35L, 92L, 21L, 1L, 2L, 19L, 6L, 0L, 0L, 3L, 17L,
2L, 1L, 5L, 9L, 3L, 21L, 14L, 1L, NA, 14L, 25L, 9L, 2L, 3L,
2L, 116L, 2L, 4L, 4L, 5L, 106L, 0L, 23L, 3L, 21L, 1L, 1L,
1L, 32L, 4L, 5L, 14L, 600L, 15L, 4L, 41L, 28L, 1L, 11L, 39L
), Runoff_Factor = c(0.6, 0.69, 0.56, 0.58, 0.57, 0.51, 0.61,
NA, 0.51, 0.48, 0.56, 0.51, NA, 0.51, NA, 0.58, 0.64, 0.58,
0.62, 0.58, 0.61, 0.51, 0.51, 0.62, 0.52, 0.58, 0.54, 0.46,
0.51, 0.51, 0.5, 0.54, 0.59, 0.53, 0.66, NA, 0.5, 0.47, 0.53,
0.51, 0.56, 0.56, 0.51, 0.49, 0.53, 0.58, 0.56, 0.61, 0.61,
0.53, 0.59, 0.63, 0.58, 0.62, 0.76, 0.53, 0.56, 0.56, 0.61,
0.06, 0.61, 0.51, 0.58, 0.46, 0.46, 0.58, 0.06, 0.56, 0.62,
0.52, 0.58, 0.58, 0.57, 0.56, 0.66, 0.61, 0.61, 0.71, 0.55,
0.46, 0.58, 0.51, 0.51, 0.58, 0.62, 0.5, 0.06, NA, NA, 0.51,
0.66, 0.58, 0.57, 0.47, 0.55, 0.61, 0.56, 0.56, 0.56, NA,
0.6, 0.6, 0.56, 0.5, 0.61, 0.76, 0.61, 0.61, 0.56, 0.56,
0.51, 0.57, 0.56, 0.61, 0.61, 0.61, 0.51, 0.47, 0.58, 0.46
), Flushings_per_Year = c(2.8, 0.8, 1.1, 2.7, 2, 9.6, 7.9,
NA, 58.8, 2.1, 1.1, 24.5, NA, 0.6, NA, 0.5, 1.9, 10.5, 4.5,
0.7, 13.1, 20.1, 0.6, 4.3, 1.1, 9.5, 28.6, 0.8, 5.8, 1.1,
3.3, 1.1, 0.5, 0.5, 19.4, NA, 3.2, 0.2, 0.3, 8.2, 1.8, 2.9,
1.7, 6.2, 1.4, 5.8, 0.5, 1, 1.1, 0.8, 18.9, 3.9, 1.1, 6.8,
0.9, 0.8, 2.7, 3.3, 1.3, 0.3, 2.2, 0.9, 0.7, 1, 20.3, 0.9,
0.1, 4.7, 0.6, 2.5, 45.2, 2.3, 1.5, 0.7, 12.6, 0.8, 2.3,
1.8, 1.9, 2.3, 2.2, 17.5, 3.3, 2.3, 0.7, 0.5, 1.2, NA, NA,
3.7, 2.1, 10.1, 1.8, 2.1, 0.7, 43.7, 0.8, 64.1, 3.8, NA,
14.2, 1.7, 4.2, 25.2, 5.4, 0.8, 1.9, 3.3, 7.4, 0.3, 0.5,
50.9, 9.2, 2.9, 0.5, 7.3, 1.6, 2, 5.9, 2), Impoundment_Class = structure(c(3L,
3L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L,
2L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 2L, 2L, 3L,
3L, 2L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 3L, 3L, 2L, 2L, 2L, 2L,
2L, 2L, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 2L,
2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 2L, 2L, 3L, 3L, 2L, 2L,
3L, 2L, 2L, 3L, 3L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 3L), .Label = c("",
"All Natural Flowage", "Some Man-Made Flowage"), class = "factor"),
Latitude_Degrees = c(44L, 45L, 44L, 43L, 45L, 43L, 43L, 44L,
44L, 45L, 45L, 46L, 44L, 45L, 46L, 44L, 44L, 45L, 43L, 44L,
45L, 44L, 45L, 45L, 46L, 46L, 46L, 45L, 46L, 44L, 47L, 44L,
44L, 45L, 45L, 45L, 47L, 44L, 44L, 44L, 45L, 45L, 44L, 45L,
43L, 44L, 45L, 43L, 45L, 46L, 44L, 44L, 45L, 44L, 45L, 44L,
46L, 44L, 45L, 44L, 45L, 43L, 45L, 44L, 45L, 44L, 44L, 45L,
45L, 45L, 46L, 43L, 44L, 44L, 44L, 43L, 45L, 45L, 44L, 44L,
44L, 46L, 45L, 44L, 45L, 45L, 44L, 46L, 44L, 44L, 45L, 43L,
44L, 44L, 44L, 44L, 45L, 44L, 44L, 45L, 44L, 43L, 46L, 47L,
45L, 45L, 44L, 43L, 46L, 46L, 44L, 44L, 44L, 46L, 44L, 45L,
44L, 44L, 44L, 45L), Latitude_Minutes = c(57L, 37L, 25L,
37L, 30L, 21L, 59L, 24L, 46L, 18L, 44L, 8L, 22L, 23L, 15L,
54L, 20L, 20L, 55L, 44L, 52L, 42L, 31L, 21L, 27L, 24L, 53L,
27L, 26L, 15L, 5L, 16L, 10L, 45L, 13L, 9L, 2L, 36L, 55L,
43L, 44L, 46L, 31L, 20L, 49L, 35L, 13L, 57L, 22L, 9L, 18L,
19L, 1L, 12L, 26L, 38L, 5L, 24L, 6L, 15L, 6L, 15L, 32L, 27L,
37L, 55L, 0L, 7L, 4L, 39L, 30L, 57L, 15L, 19L, 46L, 35L,
21L, 10L, 30L, 32L, 35L, 56L, 52L, 20L, 3L, 21L, 0L, 24L,
12L, 2L, 40L, 32L, 35L, 44L, 25L, 12L, 7L, 53L, 53L, 0L,
15L, 52L, 5L, 7L, 44L, 27L, 47L, 38L, 14L, 56L, 19L, 15L,
47L, 17L, 39L, 44L, 24L, 58L, 27L, 38L), Latitude_Seconds = c(44L,
50L, 13L, 0L, 32L, 46L, 47L, 48L, 25L, 36L, 44L, 10L, 15L,
27L, 31L, 0L, 44L, 42L, 28L, 41L, 15L, 14L, 14L, 8L, 13L,
26L, 28L, 30L, 41L, 10L, 16L, 55L, 45L, 4L, 45L, 0L, 24L,
39L, 54L, 47L, 46L, 43L, 16L, 25L, 12L, 38L, 56L, 6L, 7L,
10L, 24L, 32L, 5L, 53L, 20L, 45L, 50L, 9L, 38L, 54L, 38L,
21L, 56L, 54L, 20L, 25L, 7L, 39L, 27L, 40L, 33L, 4L, 38L,
43L, 8L, 48L, 57L, 51L, 48L, 1L, 55L, 10L, 1L, 14L, 59L,
33L, 24L, 4L, 56L, 25L, 34L, 6L, 17L, 26L, 57L, 3L, 32L,
52L, 52L, 52L, 26L, 7L, 9L, 11L, 34L, 22L, 56L, 56L, 42L,
1L, 28L, 14L, 25L, 16L, 27L, 43L, 13L, 9L, 48L, 12L), Longitude.Degrees = c(68L,
69L, 70L, 70L, 67L, 70L, 70L, 69L, 68L, 68L, 67L, 68L, 69L,
68L, 69L, 68L, 68L, 69L, 70L, 68L, 70L, 69L, 68L, 70L, 68L,
69L, 68L, 70L, 69L, 69L, 68L, 70L, 69L, 69L, 69L, 68L, 68L,
69L, 69L, 68L, 70L, 69L, 69L, 68L, 70L, 68L, 67L, 70L, 69L,
68L, 70L, 68L, 68L, 69L, 69L, 68L, 68L, 69L, 67L, 70L, 69L,
70L, 67L, 69L, 70L, 68L, 70L, 68L, 67L, 68L, 68L, 69L, 70L,
70L, 67L, 70L, 70L, 70L, 69L, 69L, 70L, 68L, 69L, 69L, 67L,
67L, 70L, 67L, 69L, 70L, 69L, 70L, 68L, 69L, 70L, 69L, 69L,
70L, 70L, 67L, 69L, 69L, 68L, 68L, 69L, 69L, 70L, 70L, 69L,
68L, 69L, 69L, 71L, 68L, 70L, 69L, 69L, 69L, 68L, 70L), Longitude_Minutes = c(5L,
12L, 19L, 59L, 50L, 44L, 49L, 23L, 56L, 3L, 51L, 0L, 54L,
40L, 9L, 14L, 14L, 14L, 53L, 31L, 0L, 16L, 48L, 41L, 42L,
2L, 53L, 18L, 18L, 56L, 18L, 16L, 28L, 4L, 52L, 5L, 33L,
46L, 56L, 44L, 7L, 17L, 59L, 26L, 19L, 26L, 48L, 46L, 24L,
43L, 39L, 23L, 3L, 7L, 44L, 44L, 40L, 23L, 10L, 50L, 39L,
45L, 33L, 42L, 2L, 15L, 55L, 0L, 21L, 18L, 54L, 46L, 35L,
24L, 14L, 42L, 44L, 58L, 7L, 33L, 10L, 31L, 25L, 2L, 29L,
55L, 53L, 49L, 56L, 21L, 16L, 38L, 35L, 13L, 13L, 17L, 59L,
32L, 33L, 47L, 15L, 46L, 33L, 31L, 33L, 40L, 57L, 52L, 1L,
53L, 39L, 31L, 0L, 25L, 14L, 11L, 39L, 19L, 40L, 20L), Longitude_Seconds = c(7L,
30L, 22L, 4L, 2L, 23L, 26L, 8L, 35L, 17L, 34L, 31L, 59L,
43L, 27L, 45L, 20L, 44L, 9L, 41L, 1L, 21L, 32L, 50L, 12L,
18L, 46L, 20L, 10L, 30L, 32L, 10L, 30L, 43L, 25L, 35L, 10L,
53L, 58L, 6L, 27L, 5L, 36L, 37L, 42L, 15L, 6L, 50L, 50L,
18L, 16L, 51L, 52L, 44L, 12L, 40L, 33L, 55L, 30L, 13L, 19L,
49L, 15L, 20L, 8L, 59L, 36L, 26L, 43L, 18L, 18L, 13L, 11L,
1L, 56L, 26L, 53L, 53L, 51L, 49L, 34L, 11L, 37L, 24L, 10L,
10L, 25L, 28L, 47L, 31L, 36L, 34L, 52L, 30L, 15L, 36L, 29L,
34L, 16L, 34L, 59L, 48L, 50L, 19L, 31L, 44L, 12L, 43L, 54L,
30L, 31L, 49L, 47L, 49L, 23L, 24L, 53L, 33L, 33L, 40L)), class = "data.frame", row.names = c(NA,
-120L))
1 ответ
Решение
tl;dr К сожалению, насколько я знаю, вы просто не можете этого сделать; ты должен использовать col= в индивидуальном сюжете звонки. Выбирая через ?par, мы нашли:
Несколько параметров могут быть установлены только вызовом par(): ...
Остальные параметры также могут быть установлены в качестве аргументов (часто через '...') для высокоуровневых функций построения графиков...
Тем не менее, см. Комментарии к "bg", "cex", "col", "lty", "lwd" и "pch", которые могут быть приняты в качестве аргументов для определенных функций построения, а не в качестве графических параметров.
(выделение добавлено).
Я понимаю, что это означает, что bg и другие. не может быть установлен глобально с помощью вызова par() (хотя они описаны и обсуждены в ?par), но должны быть установлены в качестве аргументов для отдельных вызовов печати. Я бы написал код таким образом (также избегая использования attach(), что не рекомендуется даже на своей странице руководства...)
plot_col <- "green"
with (Lakes,
{
barplot(table(N_of_Fish), main="Fish", xlab = "No. of Fish", col=plot_col)
hist(Elevation, main = "Elevation", xlab = "ft", col=plot_col)
hist(Surface_Area, main="Surface Area", xlab = parse(text="ft^2"), col=plot_col)
hist(Maximum_Depth, main="Max Depth", xlab = "ft", col=plot_col)
})