Lab 06

[katiegentry07]

I'm struggling with labeling the clusters in Part 2, Step 2. I know the code needs to be changed to reflect the variables, but I'm unsure of where to go next.

stats <- 
  Census2010 %>% 
  group_by( cluster ) %>% 
  select(keep.these2010)%>% 
  summarise_each( funs(mean) )

t <- data.frame( t(stats), stringsAsFactors=F )
names(t) <- paste0( "GROUP.", 1:4 )
t <- t[-1,]

for( i in 1:4 )
{
  z <- t[,i]
  plot( rep(1,8), 1:8, bty="n", xlim=c(-1,1), 
        type="n", xaxt="n", yaxt="n",
        xlab="Score", ylab="",
        main=paste("GROUP",i) )
  abline( v=seq(0,.5,.1), lty=3, lwd=1.5, col="gray90" )
  segments( y0=1:8, x0=0, x1=100, col="gray70", lwd=2 )
  text( -0, 1:8, keep.these, cex=0.85, pos=2 )
  points( z, 1:8, pch=19, col="firebrick", cex=1.5 )
  axis( side=1, at=c(0,.3,.6), col.axis="gray", col="gray" )
}

The error states: Error in xy.coords(x, y) : 'x' and 'y' lengths differ

[sunaynagoel]

I'm struggling with labeling the clusters in Part 2, Step 2. I know the code needs to be changed to reflect the variables, but I'm unsure of where to go next.

stats <- 
  Census2010 %>% 
  group_by( cluster ) %>% 
  select(keep.these2010)%>% 
  summarise_each( funs(mean) )

t <- data.frame( t(stats), stringsAsFactors=F )
names(t) <- paste0( "GROUP.", 1:4 )
t <- t[-1,]

for( i in 1:4 )
{
  z <- t[,i]
  plot( rep(1,8), 1:8, bty="n", xlim=c(-1,1), 
        type="n", xaxt="n", yaxt="n",
        xlab="Score", ylab="",
        main=paste("GROUP",i) )
  abline( v=seq(0,.5,.1), lty=3, lwd=1.5, col="gray90" )
  segments( y0=1:8, x0=0, x1=100, col="gray70", lwd=2 )
  text( -0, 1:8, keep.these, cex=0.85, pos=2 )
  points( z, 1:8, pch=19, col="firebrick", cex=1.5 )
  axis( side=1, at=c(0,.3,.6), col.axis="gray", col="gray" )
}

The error states: Error in xy.coords(x, y) : 'x' and 'y' lengths differ

Hi. @katiegentry07 My guess is, in the original lab there were only 8 variables and for the answer there are more variables. I had 15. Changing all the y values from 8 to 15 might resolve this problem. Hope this helps.
~Sunayna

[JaesaR]

I am having trouble with the Sankey Transition Plot in step 4 of Part 2. When I enter the following code:

# Sankey Transition Plot
trn_mtrx <-
  with(TransDF,
   table(PredCluster, 
         cluster))

library(Gmisc)
transitionPlot(trn_mtrx, 
           type_of_arrow = "gradient")

It returns with:

"The minimum width reached and the arrow at box no. '3' to no. '2' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '3' to no. '4' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '3' to no. '2' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '3' to no. '4' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '4' to no. '1' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '4' to no. '1' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow."

How do I fix this?

[castower]

Did anyone else's clusters for the example part produce graphs in a different order than those on the HTML file? Just reading the .rmd file, I was confused by the labels, but after looking at the .html file, I realized they matched there. I didn't make any changes to my code, so I'm curious if the clusters just randomly change order?

Thanks!
Courtney

[castower]

I am having trouble with the Sankey Transition Plot in step 4 of Part 2. When I enter the following code:

# Sankey Transition Plot
trn_mtrx <-
  with(TransDF,
   table(PredCluster, 
         cluster))

library(Gmisc)
transitionPlot(trn_mtrx, 
           type_of_arrow = "gradient")

It returns with:

"The minimum width reached and the arrow at box no. '3' to no. '2' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '3' to no. '4' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '3' to no. '2' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '3' to no. '4' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '4' to no. '1' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow.
The minimum width reached and the arrow at box no. '4' to no. '1' will not be shown. This is due to the fact that the lwd will generate a falsely strong arrow."

How do I fix this?

I'm getting the exact same error. I've run it a couple of times and also re-started R and the error remains.

@Anthony-Howell-PhD

Edit: misspelled error

[etbartell]

@Anthony-Howell-PhD I'm getting a couple of error messages when I try running the .rmd file with my new code in place. I tried it again just with the original file and got the same error. I tried re-starting R and reloading the packages. Here is what it spits out at the end:

"Error: pandoc document conversion failed with error 11
In addition: Warning messages:
1: funs() is soft deprecated as of dplyr 0.8.0
Please use a list of either functions or lambdas:

Simple named list:

list(mean = mean, median = median)

Auto named with tibble::lst():

tibble::lst(mean, median)

Using lambdas

list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
This warning is displayed once per session.
2: In readRDS(gzcon(url(URL))) :
strings not representable in native encoding will be translated to UTF-8
3: In readRDS(gzcon(url(URL))) :
input string 'Doña Ana County' cannot be translated to UTF-8, is it valid in 'UTF-8' ?
Execution halted"

[castower]

Hello all, to clarify we do not need to use the log function for the median household income in the second data set, correct?

[AntJam-Howell]

@JaesaR Is it still presenting the sankey figure or no figure produced? If it is just a warning with a figure, then you do not need to worry about it. If there is no figure, only an error, does the same error arise when you knit the original .rmd file or is it arising after you do your own code manipulations?

[AntJam-Howell]

@castower I want to ask you the same questions that I asked @JaesaR above.

[AntJam-Howell]

@etbartell can you knit the original .rmd file?

[castower]

@castower I want to ask you the same questions that I asked @JaesaR above.

@Anthony-Howell-PhD I did not try to knit the file, I just ran it in RStudio (where it would not produce a figure and gave me errors instead). However, the figure does appear in the knitted file. Thanks!

[AntJam-Howell]

Ok, sounds good. @JaesaR how about you.. can you knit and have the figure produced?

[RickyDuran]

@Anthony-Howell-PhD Hello, I am now having the same problem as Jaesa and Castower when trying to knit at Part 1 Step 3. Although, it is not letting me knit the file.

[AntJam-Howell]

@RickyDuran Jaesa and Castower were having problems with sankey plot. Step 1 of part 3 relates to present regression results with stargazer. Is stargazer step the problem? please show reproducible code and error you receive.

[RickyDuran]

I actually just got it to knit. I still have the error, when knitting at part 1 Step 3. I am not sure if that tells you anything about the other problems:

Output created: lab-06-duran.html
Warning messages:
1: funs() is soft deprecated as of dplyr 0.8.0
Please use a list of either functions or lambdas:

Simple named list:

list(mean = mean, median = median)

Auto named with tibble::lst():

tibble::lst(mean, median)

Using lambdas

list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
This warning is displayed once per session.
2: In readRDS(gzcon(url(URL))) :
strings not representable in native encoding will be translated to UTF-8
3: In readRDS(gzcon(url(URL))) :
input string 'Doña Ana County' cannot be translated to UTF-8, is it valid in 'UTF-8' ?

[AntJam-Howell]

@RickyDuran ok sounds good. It’s a warning message due to package updates and some functions being deprecated. No need to worry about the warning message as long as it knits.