Hi All,
I try to do a scatterplot for a bunch of variables. I plot a dependent
variable against a bunch of independent variables:
-- cut --
graphics::plot(
v01_r01 ~ v08_01_up11,
data = dataset,
xlab = "Dependent",
ylab = "Independent #1"
)
-- cut --
It is tedious to repeat the statement for all independent variables. Found
an alternative, i.e. :
-- cut --
mu <- list(5, 10, -3)
sigma <- list(1, 5, 10)
n <- list(1, 3, 5)
fargs <- list(mean = mu, sd = sigma, n = n)
fargs %>%
purrr::pmap(rnorm) %>%
str()
-- cut --
I tried to use this for may scatterplot task:
-- cut --
var_battery$v08 <- paste0("v08_", formatC(1:8, width = 2, format =
"d",
flag = "0"))
v08_var_labs <- paste0("Label_", 1:8)
dataset <- as.data.frame(
matrix(
data = sample(
x = 1:11,
size = 90,
replace = TRUE),
nrow = 10,
ncol = 9))
names(dataset) <- c("v01_r01", var_battery$v08)
independent <- as.list(dataset$v01_r01)
dependent <- as.list(dataset[var_battery$v08])
fargs <- list(
x = independent,
y = dependent,
ylab = v08_var_labs)
fargs %>%
purrr::pmap(
function(d = dataset, xvalue = x, yvalue = y,
xlab = "Label for x variable",
ylab = ylab) {
graphics::plot(
xvalue ~ yvalue,
data = d,
xlab = xlab,
ylab = ylab)
}
)
-- cut --
The last statement comes back with
Error: Element 2 has length 8, not 1 or 10.
How can I get it up n running? Do you suggest a better solution for the
task described?
Kind regards
Georg
A) You are not making reproducible examples. Try out the package "reprex" to help you recognize when you are forgetting details. B) I suspect your problem is not understanding formulas. The first thing that comes to my mind is using a version of the plot function that does not use formulas for the input data specification. E.g. graphics::plot( dataset[[ xvarname ]], dataset[[ yvarname ]], xlab = "Dependent", ylab = "Independent #1" ) On Wed, 7 Jun 2017, G.Maubach at weinwolf.de wrote:> Hi All, > > I try to do a scatterplot for a bunch of variables. I plot a dependent > variable against a bunch of independent variables: > > -- cut -- > graphics::plot( > v01_r01 ~ v08_01_up11, > data = dataset, > xlab = "Dependent", > ylab = "Independent #1" > ) > > -- cut -- > > It is tedious to repeat the statement for all independent variables. Found > an alternative, i.e. : > > -- cut -- > > mu <- list(5, 10, -3) > sigma <- list(1, 5, 10) > n <- list(1, 3, 5) > fargs <- list(mean = mu, sd = sigma, n = n) > fargs %>% > purrr::pmap(rnorm) %>% > str() > > -- cut -- > > I tried to use this for may scatterplot task: > > -- cut -- > > var_battery$v08 <- paste0("v08_", formatC(1:8, width = 2, format = "d", > flag = "0")) > v08_var_labs <- paste0("Label_", 1:8) > > dataset <- as.data.frame( > matrix( > data = sample( > x = 1:11, > size = 90, > replace = TRUE), > nrow = 10, > ncol = 9)) > names(dataset) <- c("v01_r01", var_battery$v08) > > independent <- as.list(dataset$v01_r01) > dependent <- as.list(dataset[var_battery$v08]) > > fargs <- list( > x = independent, > y = dependent, > ylab = v08_var_labs) > > fargs %>% > purrr::pmap( > function(d = dataset, xvalue = x, yvalue = y, > xlab = "Label for x variable", > ylab = ylab) { > graphics::plot( > xvalue ~ yvalue, > data = d, > xlab = xlab, > ylab = ylab) > } > ) > > -- cut -- > > The last statement comes back with > > Error: Element 2 has length 8, not 1 or 10. > > How can I get it up n running? Do you suggest a better solution for the > task described? > > Kind regards > > Georg > > ______________________________________________ > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. >--------------------------------------------------------------------------- Jeff Newmiller The ..... ..... Go Live... DCN:<jdnewmil at dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go... Live: OO#.. Dead: OO#.. Playing Research Engineer (Solar/Batteries O.O#. #.O#. with /Software/Embedded Controllers) .OO#. .OO#. rocks...1k
You might try
matplot()
example:
x <- matrix(rnorm(30), ncol=3)
## plot a dependent variable (1:10) against a bunch of independent variables
(the three columns of x)
matplot(x , 1:10, type='b')
## or a bunch of dependent variables (the three columns of x) against an
independent variable (1:10)
matplot(1:10, x, type='b')
--
Don MacQueen
Lawrence Livermore National Laboratory
7000 East Ave., L-627
Livermore, CA 94550
925-423-1062
On 6/7/17, 7:34 AM, "R-help on behalf of G.Maubach at weinwolf.de"
<r-help-bounces at r-project.org on behalf of G.Maubach at weinwolf.de>
wrote:
Hi All,
I try to do a scatterplot for a bunch of variables. I plot a dependent
variable against a bunch of independent variables:
-- cut --
graphics::plot(
v01_r01 ~ v08_01_up11,
data = dataset,
xlab = "Dependent",
ylab = "Independent #1"
)
-- cut --
It is tedious to repeat the statement for all independent variables. Found
an alternative, i.e. :
-- cut --
mu <- list(5, 10, -3)
sigma <- list(1, 5, 10)
n <- list(1, 3, 5)
fargs <- list(mean = mu, sd = sigma, n = n)
fargs %>%
purrr::pmap(rnorm) %>%
str()
-- cut --
I tried to use this for may scatterplot task:
-- cut --
var_battery$v08 <- paste0("v08_", formatC(1:8, width = 2,
format = "d",
flag = "0"))
v08_var_labs <- paste0("Label_", 1:8)
dataset <- as.data.frame(
matrix(
data = sample(
x = 1:11,
size = 90,
replace = TRUE),
nrow = 10,
ncol = 9))
names(dataset) <- c("v01_r01", var_battery$v08)
independent <- as.list(dataset$v01_r01)
dependent <- as.list(dataset[var_battery$v08])
fargs <- list(
x = independent,
y = dependent,
ylab = v08_var_labs)
fargs %>%
purrr::pmap(
function(d = dataset, xvalue = x, yvalue = y,
xlab = "Label for x variable",
ylab = ylab) {
graphics::plot(
xvalue ~ yvalue,
data = d,
xlab = xlab,
ylab = ylab)
}
)
-- cut --
The last statement comes back with
Error: Element 2 has length 8, not 1 or 10.
How can I get it up n running? Do you suggest a better solution for the
task described?
Kind regards
Georg
______________________________________________
R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.