Диапазон осей при использовании графика

Я пытаюсь создать следующий сюжет с черным фоном.

image

Я использовал эти команды

x <- c(134.21, 139.12, 145.7, 148.81, 157.27, 128.4, 147.44, 133.72, 147.26, 137.26, 136.93, 137.37, 145.4, 141.74, 145.35, 130.01, 140.1, 136.3, 141.02, 137.5, 139.62, 140.05, 139.55, 135.55, 138.93, 140.07, 154.76, 138, 146.95, 139.62, 137.38, 146.27, 148.23, 152.65, 137.82, 145.28, 135.52, 152.97, 138.03, 138.82, 149.63, 131.83, 132.68, 151.5, 148.5, 142.79, 131.76, 132.83)
y <- c(0.0212, 0.1136, 0.0842, -0.0285, -0.1362, 0.1928, 0.0491, 0.0653, 0.0358, 0.082, -3e-04, 0.0659, -0.1173, -0.0707, -0.1298, 0.2789, 0.0092, 0.1105, -0.0603, 0.0409, 0.021, 0.0479, 0.0495, 0.1562, -0.1276, 0.0486, -0.519, 0.0548, 0.0072, 0.05, -0.0595, -0.0469, -0.1501, -0.2125, -0.0205, 0.0293, 0.0025, 3e-04, 0.0013, 0.0286, -0.1069, 0.1171, 0.1073, -0.0799, 0.0197, -0.0664, -0.0976, 0.0696 )
par(bg="black")
plot(x,y,pch=21,bg="white",col="red",cex=2,lwd=1,col.lab="white",col.axis="white",cex.lab=1,main="Scatterplot",font.main=1)
axis(1,col="white",col.axis="yellow")
axis(2,col="white",col.axis="yellow")
abline(lm(y~x),col="red",lwd=3)

У меня есть две проблемы, которые я не могу решить:

  1. Я не вижу заголовок «График рассеяния» на изображении

  2. Кажется, что линии обрезаны, при построении с белым фоном оси x, y кажутся в порядке. Однако мне нужен этот график с темным фоном.

Кто-нибудь знает, как это решить?

Можете ли вы предоставить объекты данных x и y?

Lucca Nielsen 17.05.2022 00:29

Я не знаю, как загружать файлы данных, я добавил точки данных в тело сообщения, надеюсь, это поможет!

user32 17.05.2022 00:44

напишите dput(x) и dput(y) и вставьте вывод вместо этих точек данных.

Lucca Nielsen 17.05.2022 00:47
Формы c голосовым вводом в React с помощью Speechly
Формы c голосовым вводом в React с помощью Speechly
Пытались ли вы когда-нибудь заполнить веб-форму в области электронной коммерции, которая требует много кликов и выбора? Вас попросят заполнить дату,...
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Будучи разработчиком веб-приложений, легко впасть в заблуждение, считая, что приложение без JavaScript не имеет права на жизнь. Нам становится удобно...
Flatpickr: простой модуль календаря для вашего приложения на React
Flatpickr: простой модуль календаря для вашего приложения на React
Если вы ищете пакет для быстрой интеграции календаря с выбором даты в ваше приложения, то библиотека Flatpickr отлично справится с этой задачей....
В чем разница между Promise и Observable?
В чем разница между Promise и Observable?
Разберитесь в этом вопросе, и вы значительно повысите уровень своей компетенции.
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Клиент для URL-адресов, cURL, позволяет взаимодействовать с множеством различных серверов по множеству различных протоколов с синтаксисом URL.
Четыре эффективных способа центрирования блочных элементов в CSS
Четыре эффективных способа центрирования блочных элементов в CSS
У каждого из нас бывали случаи, когда нам нужно отцентрировать блочный элемент, но мы не знаем, как это сделать. Даже если мы реализуем какой-то...
2
3
39
2
Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Ответ принят как подходящий

Не уверен, что вы имеете в виду под обрезкой строк, но, возможно, это то, что вы хотите:

plot(x, y, pch=21, bg="white", col="red", cex=2, lwd=1, col.lab="white", 
     col.axis="white", cex.lab=1, col.main="white", main="Scatterplot", font.main=1)
axis(1, col="white", col.axis="yellow")
axis(2, col="white", col.axis="yellow")
abline(lm(y ~ x), col="red", lwd=3)
box(col="white", lwd=2)

Plot)

Это должно сделать это:

x <- c(134.21, 139.12, 145.7, 148.81, 157.27, 128.4, 147.44, 133.72, 147.26, 137.26, 136.93, 137.37, 145.4, 141.74, 145.35, 130.01, 140.1, 136.3, 141.02, 137.5, 139.62, 140.05, 139.55, 135.55, 138.93, 140.07, 154.76, 138, 146.95, 139.62, 137.38, 146.27, 148.23, 152.65, 137.82, 145.28, 135.52, 152.97, 138.03, 138.82, 149.63, 131.83, 132.68, 151.5, 148.5, 142.79, 131.76, 132.83)
y <- c(0.0212, 0.1136, 0.0842, -0.0285, -0.1362, 0.1928, 0.0491, 0.0653, 0.0358, 0.082, -3e-04, 0.0659, -0.1173, -0.0707, -0.1298, 0.2789, 0.0092, 0.1105, -0.0603, 0.0409, 0.021, 0.0479, 0.0495, 0.1562, -0.1276, 0.0486, -0.519, 0.0548, 0.0072, 0.05, -0.0595, -0.0469, -0.1501, -0.2125, -0.0205, 0.0293, 0.0025, 3e-04, 0.0013, 0.0286, -0.1069, 0.1171, 0.1073, -0.0799, 0.0197, -0.0664, -0.0976, 0.0696 )
par(bg="black")
plot(x,y, xlim = c(125, 160), ylim = c(-0.6, 0.4), pch=21,bg="white",col="red",cex=2,lwd=1,col.lab="white",col.axis="white",cex.lab=1, col.main ="white", main="Scatterplot",font.main=1)
axis(1,col="white",col.axis="yellow")
axis(2,col="white",col.axis="yellow")
abline(lm(y~x),col="red",lwd=3)

enter image description here

Нет проблем - рад, что вы поняли это правильно.

Stuart Demmer 17.05.2022 07:07

Другие вопросы по теме