Add Color to classes in scatterplot matrix (pairs)












0















I have my class defined in "unscaled.BL_yFYield_CSUSHPINSA" (basically, 1:up 0:down). I wish to color the scatterplot into classes akin to how this example demonstrates species are supposedly highlighted by 3 colors (note, I've reduced my example to two colors).



http://www.sthda.com/english/wiki/scatter-plot-matrices-r-base-graphs



this image specifically is what I'm trying to achieve (coloring based on my_cols and a categorical variable). In the iris example, I only saw two species (when I iterated iris$species), but the online code uses 3 colors in the graph, so I'm not sure how that works data.



My example I have two colors for two classes (however, eventually I wish to extend my number of classes beyond 2).



Example, assuming BL_yFYield_CSUSHPINSA had the following values for categorical 0, 1, 2 and I had 3 colors defined in my_cols.



Right now when I graph the output, this is what I get



pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

MyData <- pre_MyData[,11:18]

my_cols <- c("#00AFBB", "#E7B800")
pairs(MyData[,1:8], pch = 19, cex = 0.5,
col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA],
lower.panel = NULL)









share|improve this question





























    0















    I have my class defined in "unscaled.BL_yFYield_CSUSHPINSA" (basically, 1:up 0:down). I wish to color the scatterplot into classes akin to how this example demonstrates species are supposedly highlighted by 3 colors (note, I've reduced my example to two colors).



    http://www.sthda.com/english/wiki/scatter-plot-matrices-r-base-graphs



    this image specifically is what I'm trying to achieve (coloring based on my_cols and a categorical variable). In the iris example, I only saw two species (when I iterated iris$species), but the online code uses 3 colors in the graph, so I'm not sure how that works data.



    My example I have two colors for two classes (however, eventually I wish to extend my number of classes beyond 2).



    Example, assuming BL_yFYield_CSUSHPINSA had the following values for categorical 0, 1, 2 and I had 3 colors defined in my_cols.



    Right now when I graph the output, this is what I get



    pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

    MyData <- pre_MyData[,11:18]

    my_cols <- c("#00AFBB", "#E7B800")
    pairs(MyData[,1:8], pch = 19, cex = 0.5,
    col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA],
    lower.panel = NULL)









    share|improve this question



























      0












      0








      0








      I have my class defined in "unscaled.BL_yFYield_CSUSHPINSA" (basically, 1:up 0:down). I wish to color the scatterplot into classes akin to how this example demonstrates species are supposedly highlighted by 3 colors (note, I've reduced my example to two colors).



      http://www.sthda.com/english/wiki/scatter-plot-matrices-r-base-graphs



      this image specifically is what I'm trying to achieve (coloring based on my_cols and a categorical variable). In the iris example, I only saw two species (when I iterated iris$species), but the online code uses 3 colors in the graph, so I'm not sure how that works data.



      My example I have two colors for two classes (however, eventually I wish to extend my number of classes beyond 2).



      Example, assuming BL_yFYield_CSUSHPINSA had the following values for categorical 0, 1, 2 and I had 3 colors defined in my_cols.



      Right now when I graph the output, this is what I get



      pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

      MyData <- pre_MyData[,11:18]

      my_cols <- c("#00AFBB", "#E7B800")
      pairs(MyData[,1:8], pch = 19, cex = 0.5,
      col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA],
      lower.panel = NULL)









      share|improve this question
















      I have my class defined in "unscaled.BL_yFYield_CSUSHPINSA" (basically, 1:up 0:down). I wish to color the scatterplot into classes akin to how this example demonstrates species are supposedly highlighted by 3 colors (note, I've reduced my example to two colors).



      http://www.sthda.com/english/wiki/scatter-plot-matrices-r-base-graphs



      this image specifically is what I'm trying to achieve (coloring based on my_cols and a categorical variable). In the iris example, I only saw two species (when I iterated iris$species), but the online code uses 3 colors in the graph, so I'm not sure how that works data.



      My example I have two colors for two classes (however, eventually I wish to extend my number of classes beyond 2).



      Example, assuming BL_yFYield_CSUSHPINSA had the following values for categorical 0, 1, 2 and I had 3 colors defined in my_cols.



      Right now when I graph the output, this is what I get



      pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

      MyData <- pre_MyData[,11:18]

      my_cols <- c("#00AFBB", "#E7B800")
      pairs(MyData[,1:8], pch = 19, cex = 0.5,
      col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA],
      lower.panel = NULL)






      categorical-data






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Jan 1 at 19:30







      thistleknot

















      asked Jan 1 at 18:31









      thistleknotthistleknot

      427621




      427621
























          1 Answer
          1






          active

          oldest

          votes


















          0














          I thought about it. The answer was in my screenshot. my_cols is skipping values with 0 in BL_yfield... (treating it as null). I could try to fix it after the fax, or I could add 1 to my original dataset to remove 0's...



          problem solved



          pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

          MyData <- pre_MyData[,11:18]

          my_cols <- c("#00AFBB", "#E7B800")
          pairs(MyData[,1:8], pch = 19, cex = 0.5,
          col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA+1],
          lower.panel = NULL)





          share|improve this answer























            Your Answer






            StackExchange.ifUsing("editor", function () {
            StackExchange.using("externalEditor", function () {
            StackExchange.using("snippets", function () {
            StackExchange.snippets.init();
            });
            });
            }, "code-snippets");

            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "1"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: true,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: 10,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53997921%2fadd-color-to-classes-in-scatterplot-matrix-pairs%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            0














            I thought about it. The answer was in my screenshot. my_cols is skipping values with 0 in BL_yfield... (treating it as null). I could try to fix it after the fax, or I could add 1 to my original dataset to remove 0's...



            problem solved



            pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

            MyData <- pre_MyData[,11:18]

            my_cols <- c("#00AFBB", "#E7B800")
            pairs(MyData[,1:8], pch = 19, cex = 0.5,
            col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA+1],
            lower.panel = NULL)





            share|improve this answer




























              0














              I thought about it. The answer was in my screenshot. my_cols is skipping values with 0 in BL_yfield... (treating it as null). I could try to fix it after the fax, or I could add 1 to my original dataset to remove 0's...



              problem solved



              pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

              MyData <- pre_MyData[,11:18]

              my_cols <- c("#00AFBB", "#E7B800")
              pairs(MyData[,1:8], pch = 19, cex = 0.5,
              col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA+1],
              lower.panel = NULL)





              share|improve this answer


























                0












                0








                0







                I thought about it. The answer was in my screenshot. my_cols is skipping values with 0 in BL_yfield... (treating it as null). I could try to fix it after the fax, or I could add 1 to my original dataset to remove 0's...



                problem solved



                pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

                MyData <- pre_MyData[,11:18]

                my_cols <- c("#00AFBB", "#E7B800")
                pairs(MyData[,1:8], pch = 19, cex = 0.5,
                col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA+1],
                lower.panel = NULL)





                share|improve this answer













                I thought about it. The answer was in my screenshot. my_cols is skipping values with 0 in BL_yfield... (treating it as null). I could try to fix it after the fax, or I could add 1 to my original dataset to remove 0's...



                problem solved



                pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

                MyData <- pre_MyData[,11:18]

                my_cols <- c("#00AFBB", "#E7B800")
                pairs(MyData[,1:8], pch = 19, cex = 0.5,
                col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA+1],
                lower.panel = NULL)






                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Jan 1 at 19:40









                thistleknotthistleknot

                427621




                427621
































                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53997921%2fadd-color-to-classes-in-scatterplot-matrix-pairs%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    MongoDB - Not Authorized To Execute Command

                    How to fix TextFormField cause rebuild widget in Flutter

                    Npm cannot find a required file even through it is in the searched directory